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Introduction 


This manual was designed and organized around the Tandy 200’s remarkable 
built-in features. Divided into two books, the manual deals first with the 200 ’s 
application programs and then with its BASIC programming capabilities. 

BOOK ONE introduces the Tandy 200 and then demonstrates how to use those 
features that require no programming knowledge. The required reading is covered 
in Parts 1 and 2; the last two parts of BOOK ONE are optional. 

Part 1 — Set Up 

Teaches how to set up the Tandy 200 and set its internal clock and 
calendar. Explains the keyboard and its various uses. 

Part 2 - Word Processing 

Teaches how to use the word processor and its many features to create, 
edit, print and save memos, letters, contracts and other documents. 

Part 3 - Special Programs 

Teaches the use of the Tandy 200’ s “information manager” for keeping 
track of schedules, addresses, notes and other personalized reminders, 
of the 200 ’s “Find” capabilities for instant access to this information 
and of its spreadsheet, MSPLAN, for financial record keeping and 
planning. 

Part 4 — Communications 

Teaches how to use the Tandy 200 to communicate with other computers 
inside the office and over a telephone line. 


v 



vi Introduction 


BOOK TWO is a complete course in computer programming using the Tandy 
200’s built-in BASIC. 

Organized into nine parts, BOOK TWO moves from a definition of 
computer programs through the correcting of programming errors. 
Editing, math operators, looping, strings, graphics, sound and flow- 
charting are a few of the topics taught along the way. 

Each of the 50 concept-centered chapters presents clear, easy-to- 
understand explanations and examples. At the end of many chapters 
are exercises to test your knowledge and stimulate your creativity. 

The APPENDICES present information organized to be easily accessible. 

APPENDICES A through F are listings of ASCII, control and error 
report codes, reserved words and communication parameters as well 
as a hex-to-decimal conversion chart. Additional APPENDICES pro- 
vide Answers to Exercises (many with sample runs and extra tips) and 
User Programs (some for business, some for education and some just 
for fun - all ready to type in and use.) The final APPENDIX teaches 
users with the Disk Interface Unit how to backup and format diskettes 
and then use them to SAVE and LOAD programs. 

We have enjoyed the challenge of researching and writing this book. We hope 
you will find it a pleasurable and informative companion to the Tandy 200. 



Table of Contents 


A Personal Note from the Author 

Acknowledgements 

Introduction 

BOOK ONE: THE TANDY 200’s BUILT-IN CAPABILITIES 

Part 1 : Set Up 

1 What Makes It Tick? 

2 The Keyboard 

3 Techtalk 

Part 2: Word Processing 


iii 

v 

vii 


2 

8 

17 


21 


4 

Beginning Word Processing 

22 

5 

Intermediate Word Processing 

29 

6 

Advanced Features 

37 

Part 3: 

Special Programs 


7 

Keeping a Schedule 

42 

8 

The Address Book 

54 

9 

MSPLAN 

58 

Part 4: 

Communications 


10 

Why Telcom? 

68 

11 

You Called? 

76 

12 

Reading the Mail 

88 

13 

Sending a Letter 

94 

14 

Talking Computer to Computer 

101 


vii 



viii Table of Contents 


BOOK TWO: LEARNING TANDY 200 BASIC 
Part 1 . BASIC’s Basics <1 

1 Getting Ready 1 12 

2 More Programming 1 1 g 

3 Using the EDITor 12g 

4 The Soft Keys 132 

Part 2. Speak to Me, Oh Great Computer 137 

5 Math Operators 13g 

6 Scientific Notation 147 

7 Using ( ) and the Order of Operations 150 

8 Relational Operators 155 

9 It Also Talks and Listens 161 

10 Calculator or Immediate Mode 166 

11 Saving and Loading Programs 172 

12 FOR-NEXT Looping Igg 

13 Son of FOR-NEXT 190 

14 Formatting with TAB 19g 

15 Grandson of FOR-NEXT 203 

16 The INTeger Function 209 

17 More Branching Statements 221 

18 RaNDom Numbers 230 

19 READing DATA 239 

Part 3. Strings 245 

20 Intermediate BASIC 246 

21 The ASCII Set 257 

22 Strings in General 263 

23 Measuring Strings 269 

24 VAL and STR$(N) 277 

25 Having a Ball with Strings 282 

Part 4* Variable Precision and Math 295 

26 What Price Precision? 296 

27 Intrinsic Math Functions 306 

28 The Trigonometric Functions 314 



Table of Contents ix 


Part 5, 

Graphics and Display Formatting 

321 

29 

Video Display Graphics 

322 

30 

Intermediate Graphics 

333 

31 

Display Formatting with PRINT@ 

345 

32 

Graphing Trig Functions 

351 

33 

INKEY$ 

356 

34 

PRINT USING 

363 

35 

PRINT USING - Round 2 

374 

36 

Using a Printer 

384 

Part 6. 

Arrays 

391 

37 

Arrays 

392 

38 

Search and Sort 

405 

39 

Multi-Dimension Arrays 

413 

40 

Advanced Graphics 

424 

41 

Graphic INKEY$ 

435 

Part 7. 

Sound 

444 

42 

A Buzz Job 

442 

Part 8. 

Advanced Features 

451 

43 

PEEK and POKE 

452 

44 

Logical Operators 

460 

45 

Saving and Merging Programs 

471 

46 

File Handling 

479 

47 

A Study of Obscurities 

488 

Part 9* 

Program Control 

503 

48 

Flowcharting 

504 

49 

Debugging Programs 

510 

50 

Chasing the ERRORS 

522 




x Table of Contents 


Appendices 531 

Appendix A — ASCII Chart 532 

Appendix B — TEXT Control Codes 540 

Appendix C — Reserved Words 542 

Appendix D — Communication Parameters 544 

Appendix E — Error Report Codes 546 

Appendix F — Hex-to-Decimal Conversion Chart 548 

Appendix G — Answers to Exercises 549 

Appendix H — User Programs 567 

Appendix I — Disk Video Interface 576 


Index 


581 




The Tandy 200’s 
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Set Up 


r Chapter 1 


What Makes It Tick? 


O: of the box it comes. 

Just one little thing. Did you buy batteries? 

Batteries? 

Yes. You need 4 size A A Alkaline cells unless you bought the AC Adapter Cat 
No. 26-3804. 


Y ° Ur J a “, dy °° can be modified to use rechargeable Nickel-Cadmium cells This 
t onnT J ^ aUth ,° nzed Radl ° Shack Computer Repair Center. Once your 
Alkanne°cells S m ° dlfied f ° r Nlcke] -Cadmium cells, you must not attempt to use 

When you use the AC Adapter, the Nickel-Cadmium cells will be recharging. 


All Set? 

Now we can proceed. 

1 . Install the 4 batteries as shown in Figure 1 . 

2 



\ 


Figure 2 
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2. Flip the MEMORY POWER switch (located on the bottom) to ON 
and never switch it off. 

3. If you have an AC Adapter (26-3804) plug it into the wall, 
and into the Computer as shown in Figure 2. 

4. Carefully raise the lid until it is seated in place, then press 

the Power switch ON (switch located above the keyboard to the 
left). 


If the Computer display doesn’t light right up, let it sit for 5 minutes and try again 
It takes an overnight charge of the internal Nickel Cadmium storage cell to bring it 
up to full capacity. The internal rechargeable cell is charged from either the AA 
batteries or the AC Adapte r. 

5. Adjust the display using the DISP control (located next to the 
Power supply jack) for best display viewing. The Liquid Crystal 
Display (LCD) has a limited angle of view, so you may need to 
readjust the display each time you reposition the Computer. 


We are now up and running! 


Setting the Clock 

We have to set the clock and calendar only once, like right now 


If the shaded (reversed) block isn’t over the word BASIC, it means you’ve been 
fiddling with the keys. If so, turn the Computer OFF, then ON again. 
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Now press the 


ENTER 


key. 


Altho we don’t want to learn the BASIC Computer language at this instant, we 
are now in what is called its BASIC Interpreter. 


Carefully and slowly type: 


DATE$= "0G/30/8G " 


ENTER 


(using today’s date) 


Either upper or lower case is fine; just be sure to place the/ exactly as shown above. 

then 


T I ME$ = " 14:35:00" 


ENTER 


The standard 24 hour clock is used instead of AM and PM. 


(if the time is 2:35:00 PM) 


then 


DAY$ = "THU 1 


ENTER 


(if today is Thursday) 


Use only the first 3 letters of the day. 


Press key F8. Always use it to return to the safe harbor ... otherwise known as 
the MAIN MENU. 

The top line of the MENU should now display the DATE, DAY and TIME just 
entered, and the clock should be running. If it’s not correct, go back into BASIC 
and simply retype the DATE, TIME or DAY that is wrong. 

See — there’s nothing to this Computer business! 


Memories 

Look at the lower right hand comer of the display. It tells how many “Bytes” are 
free. For our purposes, a Byte is roughly the amount of memory space required 
to hold 1 single keystroke. The number of Free Bytes should be about 19590. 
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Differences in amount of memory do not affect the operation of the Tandy 200. 
Different versions just remember different amounts of information, and more 
memory can be easily added at the candy store should the need arise. 

Having savored a bit of success, let’s move onward to our next little victory over 
fear of Computers, hi-tech, and those other intimidating buzz words. 
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The Keyboard 


T 

■ he keyboard isn’t nearly as difficult as it appears. Let’s take a part at a time 
leaving detailed explanations for later when they will make more sense. 

If you get lost during this session, press key F8 to return to the menu. If that 
doesn’t work, press and release the RESET button in the back as shown in Figure 
3 . RESET is our ultimate panic button and should be used only as a last resort. 



Figure 3 

The Shadow Knows 

Four keys control movement of the Shadow, or CURSOR. 
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Play with the cursor controls to see how the arrows move the shaded cursor to 
different screen locations. 

To be able to fiddle with the rest of the keys we must transform the Computer 
into a typewriter. Move the cursor over the word TEXT, and press 

The Computer answers our message by saying: 

File to edit? $ 

and blinks a different cursor at us. A blinking cursor always means “it’s your 
turn.” Your Tandy 200 knows we want to type something but insists that you 
tell it a name, first. It will hold your typing in a FILE. Think of it like being a 
FILE folder, or a FILE drawer. The Computer insists you give that FILE a name . 

Since we are all learning, let’s answer by typing: 

learn 

It seems satisfied, but the cursor is still blinking. Don’t panic. Let it wait. This 
is as good a time as any to let the Computer know that it waits on our pleasure, 
not the other way around. No blinking cursor is going to intimidate us! 

If we leave the Computer waiting too long, about 10 minutes, it automatically shuts 
itself off to conserve battery power. If that happens, simply press the power switch 
to turn it back ON again. 
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Minor Caution 

The ESCape key 



should not be pressed at this time. By pressing it twice, we will be sent back to 
the MENU. If that should happen, just find your way back the same way we got 
here. When the question: 

File to edit? 


is asked, answer again with: 


learn 


ENTER 


The Main Keyboard 

The middle part of the keyboard is just like an ordinary typewriter. Letters and 
numbers are usually in the same place on all typewriters, but the punctuation 
marks move around from brand to brand. 



Go ahead and press keys within the box above. Hold one down and see how it 
automatically repeats ... a great feature for underlining. 
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Locking Caps 



and do it again. The key locks down, so press it again to unlock when done. 


Numeric Keypad 



these keys become a NUMERIC KEYPAD. Go ahead and press them. Book- 
keepers and others who work a lot with numbers really appreciate this feature. 

When done playing, press the IgfJfll key again to unlock it. 


DEL/BKSP 

No messy bottles of erasing paint here. 


Press the key a few times. Then hold it down and erase everything 

typed in so far. Great for erasing long mistakes. 
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Sprecken Sie Deutsch? 

Some keys can display special foreign language variations. Press the 
down 


CODE 


key 



with one hand, and type each letter, number and punctuation key with the other: 


■ i 

■in 


■■■> 
■ ■ 
IIM 


M ■■ 
I I I 
■ I I 


■■•I 
I I 
■III 


Now try holding down the 
letters and punctuation keys. 


SHIFTEJTSJCODE 


U .H i i 

Si mi ■■■ 

keys and pressing the numbers, 


■•■■a 

I 

am 

« 

■mi 


■ ■■ 

I III ll 

I ■ l mu 


A complete set showing which key does what is provided in Appendix A. 
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Graphics u . 

The last trick involves graphics — the kind used both in video games and graphing 

financial or other data. Press the Will key with one hand: 



and again type each letter, number and punctuation key. 


■a 

a a 
■■ 


aa aa 
a a a 

i i 


! ! 1 
■ a a 


• • a 
!' ", 


aa aa 


aaaa 
aa aa 
aa aa 


aaaaa 

aaaaa 


.SK. 

a a a 




:k. 


a aa a 
aaaaaa 

a aa i 
aaaaaa 
a aa a 


!"!! 
a 'aa 


aa a 

a a 
a a a 


lllll 


WOW! 39 graphics characters. Did you find the cents sign above the E? Try 
pressing MSUaiRTsIsTCl and see 33 more! This is the sort of thing creativity thrives 
on. Don’t bother writing them down as all are shown in Appendix A. 


mi 

aaiaa 


aaaa 

aaaaa 

laaaaa 


iiiiii 


aaaaaa 

aaaiai 

aaaaaa 


aaaaaa 

aaaaa 

aaaa 


aaaaaa 

aaaaaa 


If you want to delve more into the graphics world, just be patient ... we’ll cover 
it in more detail with BASIC! 


On the other hand, if you have no interest in graphics, that’s alright. The Tandy 
200 contains far more capability than the average user will ever need or use. 
There’s something for everyone. 
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Soft Keys 


Keys FI thru F8 are called Function or “Soft Keys.” They can be changed to 
do different things under different circumstances. 



In a sense, most of the other keys are “soft keys” too, but they do have a primary 
use labeled on them. True soft keys can be changed by the user by making a change 
in the Computer software. We will learn to do it later, in BASIC. 



and look at the bottom line of the display. Every soft key has been assigned a 
specific purpose. 



Press F8, as before, and we return to the MENU. 
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Command Keys 

The remaining 3 keys 



will be discussed in more detail as we need them. In general however, the 
BREAK/PAUSE stops execution of Computer programs or video displays 
so we can take a closer look. PASTE is used in the “cut and paste” part of 
the word processing program, and PRI NT is used to send information to a printer. 


One Last Look 

Look at the display. Do you see any additional entries to the MENU? 

That’s right. L E A R N ♦ D 0 was added. The “junk” we typed while learning about 
the keyboard has been saved in a FILE named LEARN ♦ DO. But, we named it 
just LEARN? 

Yes, but the Computer added the suffix “ . DO” to indicate it’s something we 
typed, not a file or program that came with the Computer. Different suffixes are 
added for different reasons, as we will see. 


In this Chapter we entered and exited the TEXT or WORD PROCESSING program. 
The keyboard, not Word Processing, was the subject of this Chapter, but only files 
created with the Word Processor add a .DO to their names. 


Moving right along . . . 
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Techtalk 


T 

* here are a few technical features of the Tandy 200 which you must learn and 
understand. Even if you couldn’t care less about the “technicals,” please study 
this short Chapter very carefully. 

The Computer memory is powered by a “permanent” built-in Nickel-Cadmium 
rechargeable battery. This battery is continually recharging from 4 type A A 
Alkaline or Nickel-Cadmium batteries. You will need to replace the Alkaline 
batteries on a regular basis; how often depends on usage and the amount of 
memory installed. 

If the Red LOW BATTERY light comes ON (front panel above F8), it’s time 
to replace the batteries. You’ve got about 20 minutes of power left before you 
lose your Computer’s memory. 

Turn the Computer OFF almost immediately to conserve the remaining electricity. 


In the OFF position, the fully charged internal battery should last for about 15 days 
with 24K of memory. If this battery discharges, power to the memory is lost. 


17 
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Then, exercise one or more of these options: 

1) Replace the 4 A A Alkaline cells. 

2) Plug the Computer into an AC power supply adapter. If using 
Nickel-Cadmium batteries, let them charge for 8 hours or more. 
(The Computer can be either ON or OFF). 

Disconnect the power supply from the Computer and turn the 
Computer ON. If the LOW BATTERY light comes on, it is 
necessary to replace the 4 AA Nickel-Cadmium cells and allow at 
least 8 hours for the new cells to charge. 

3) Record the contents onto cassette tape so they may be reloaded into 
the Computer when fresh batteries are available. (Requires a port- 
able recorder or dictating machine with an AUX jack, and special 
cassette cable #26-1207.) 

4) Plug into a printer and make a “hard copy” of everything. (Re- 
quires printer cable (26-1409) and a compatible printer.) 



TWAT'4- WHAT 
l CALL A 
HARP COPY 


5) Do nothing, but don’t turn it back on until the batteries have been 
changed or it’s hooked up to an AC Adapter. 

Based on extensive global travel experience, we strongly recommend carrying a 
set of premium quality AA Alkaline batteries in the same briefcase, and two sets 
on any trip of several days or more. The red light seems to come on at the most 
inconvenient time, requiring immediate shutdown to save critical and non-dupli- 
cateable information. Just one loss of memory due to battery failure can be 
devastating, possibly necessitating a great expenditure of time and money to 
reconstruct. 

In the interest of preserving relatively expensive battery power, we recommend 
buying 3 AC Adapters (26-3804). They are very inexpensive, can be left perma- 
nently plugged in at the office and home with the third one in the briefcase. 
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If you plan to store your Tandy 200 for a long time, it’s a good idea to set the 
memory switch on the bottom to OFF. This should prevent the rechargeable 
memory battery from completely discharging. Do not turn this switch off until 
you have saved the files on cassette, to another Computer, or have made a hard 
copy with a printer. Once the memory switch is turned off all files and programs 
that don’t come with the Computer are lost forever. Also, before storage, remove 
the Alkaline or Nickel-Cadmium batteries. 

When travelling with the Computer, it is best to bring along the following: 

1 . A plastic case or protective cover 

2. Extra AA Alkaline cells (8) (23-552) 

3. An AC Adapter (26-3804) 

4. A 3-outlet plug (61-2705) 
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Beginning Word Processing 


o 

Swell. What’s a word processor? 

Very hard to describe since it requires knowledge of things unseen by most new 
users. Sort of like trying to describe Return of the Jedi to someone who didn’t 
see Star Wars. It’s much easier to just go through a lesson or two, and let it 
speak for itself. 

I’m writing this deathless prose on a Computer (Model 4 TRS-80) which has a 
powerful word processing program. Each Chapter is changed literally dozens of 
times ... trying to get the right words in the right places. 

Many years ago I avoided word processing, finding all manner of excuse to ignore 
it. Having now become a fanatic on the subject, I could not write another book 
if it meant using a typewriter and all the grief that goes with endless editing, 
retypes, etc. Wanna buy a good used Selectric? 

So much for the testimonial. Let’s get YOU using one. 


A 


22 
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Office Memo 

Power up the Computer to its MENU , and see how many Bytes of memory space 
are free. Write that number down. 

The name of our Word Processing Program is TEXT , so position the cursor over 
TEXT and I=lgil3;l . Answer: 


File to ed it? with OFFICE 


ENTER 


The file name can be up to 6 characters long. 


Double check the fflllffil and WilsiemMa keys to ensure they are up, and start 
typing. Do not press laciiad at the end of each LINE, only at the end of each 
paragraph. Type in the following short letter but be sure to make mistakes. 
Mistakes are necessary to the success of this lesson. We get to come back and 
correct them. 


Dear Joe > 


ENTER 


ENTER 


You're not 3 o i n 3 to b e 1 i e u e this* 

I ' m usiriS a Co m puter with a word 
processor* I'm not really sure what 
it's supposed to dot or how it's 
different from a typewriter# but people 
sure talk a lot about them. 


ENTER 


ENTER 


They s a y y o u never have to use an eraser 
or white paint# and can m o u e words# 
sentences or whole paragraphs around 
without retyping them# When the letter 
or memo is in final form# a push of the 
PRINT Key dumps the whole thins to a 
printer* It all seems pretty a m a z i n S 
to me# and I'm still somewhat skeptical* 


ENTER 


ENTER 


I have to So now* We're supposed to 
take this letter and perform all sorts 
of m a S i c on it. I'll let you know ho w 
it comes o u t * i 


ENTER 
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First, some observations: 

1) While typing the letter, look carefully at the cursor, wherever it’s 
located. The shadow flashes over the character it’s covering, alter- 
nately displaying it “regular,” then “in reverse.” 

2) Look at the mark which follows each paragraph and separates them. 
It’s a triangle pointing left. 

3) Note that there are no special markings at the end of a sentence. 
Just a period. 


Controlling the Cursor 

Slow Speed: Ignore your typing errors and practice moving the cursor around 
with the 4 arrow keys. 

Move the display “window” (what is presently occupying the entire 
display) up and down the full height of the text. Move the cursor back 
and forth learning how to make it go wherever you want. 


Medium Speed: Do it all over again, this time while holding thegSHjQkey down. 


Do you see that vertically it bounces alternately between the top and 
bottom of the window? Horizontally, each press of the cursor arrow 
moves it to the first letter of the next word. 


Fast Speed: Do it all over again, this time while holding the key down. 

Vertically, the cursor goes to either the top or bottom of the text. 
Horizontally, it goes to either the far right or left of the window. 

Good Cursor control is the key to fast word processing. 

Now let’s learn some more so we can correct the errors. 


Inserting 

We’ll begin by inserting some new text. Let’s say we want to send the letter to 
both JANE and JOE. 


1 ) Position the cursor on the J in Joe. 
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2) Type Jane and (Leave a space after and ). 

That’s all there is to inserting. It’s automatic on the Tandy 200. The balance of 
the line moved over to accommodate the insertion. 

Deleting 

Let’s change our mind and send it just to Jane, deleting Joe. There are 2 ways 
to do it. 

Forward 

1) Position the cursor just after the e in Jan e . 

2) Hold down MSIIJI and press the HHMsiasfal key once for each 
character to be deleted. On long DELetions , just hold the keys down 
and it shifts into hi- speed. 

Backward (Type an d Joe back in.) 

1) Position the cursor on the e in Jo e . 

2) Press l»]3yj=K<s!5 once for each character to be DELeted. Stop 

pressing when the cursor is flashing over the e in 

Jane . 

Summary 

The Forward mode of DELetion requires 2 keys and deletes the character the 
cursor is sitting on. It’s usually the simplest way. 

The Backward mode only requires 1 key and deletes the character just before 
the cursor. 

Okay, that’s a good introduction. You have now learned enough to correct the 
mistakes in your typing. Finish cleaning up the letter by a process of deleting 
and inserting. 

Closing the File 

When you’re satisfied the letter is correct, press F8 and go back to the MENU. 
(When it’s time to turn the Computer OFF, it’s always a good idea to do it 
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with the cursor positioned on the MAIN MENU, rather than when in the word 
processor or in any other program it may be running.) 

Now look at the number of Bytes free. Subtract the number from the one we 
wrote down at the beginning of this Chapter. I get a difference of about 19590 - 
18900 = 690. If your typing was identical, so should the amount of memory 
space used. 


The Printer 

You need access to a printer. There is no satisfactory way around this require- 
ment. Word processing without producing printed words some place along the 
line is very rare. 

The Tandy 200 hooks easily to any Tandy/Radio Shack printer, or any other 
printer that is “Centronics parallel” compatible, including virtually all of the 
Tandy/Radio Shack “look-alike” printers. Price bears some relationship to print 
quality, but compatibility is critical. 


Printing the Text 

With the Computer and printer OFF, connect cable 26-1409 between them. 
First turn the printer ON, then the Computer. 

“Bring up” the file named OFFICE. DO by placing the cursor over that filename, 


[ENTER! 


SHIFT 


PRINT 


A Print Format Window is now sitting in the center of the text. If you’re concerned 
that a portion of the text has been erased, or you have changed your mind about 
printing the text, press: 


SHIFT 


and BREAK/PAUSE 


The Print Format Window disappears and the original text returns. Now press: 


SHIFT 


PRINT 


and this time type: 


40 


(Don’t press the 


[ENTER! 


key.) 
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The Print Width comes set at a default value of 80. By typing 40, we change 
the maximum printer line width to 40. It will remain at 40 from now on, even 
if the Computer is turned OFF and ON. The only way to return the Width to the 
original default value is by typing 80 following the Width question. 

Press the down-arrow key and type: 

3 


for a Left-margin of 3. 


Continue down the list of Print Format 
and accept the remaining default values, 
and answer: 


options by pressing the down-arrow key. 
To get on with the printing, press | 


ENTER 


Conti n u o u s Y / N ? 


by typing: 


ENTER! 


By specifying Y, the entire text was printed without stopping to insert paper at 
the end of each page. (The N option stops after each page.) 

Try printing the text again using different printing parameters until you feel 
comfortable with each option. 


More Than You Wanted to Know 

From my word processor I “dumped” this text we’re reading to a dot matrix 
printer for review and editing. Back at the office, a Model 4 with word processor 
fed the final manuscript to a letter quality printer for final editing. Finally, another 
Model 4 with word processor fed the finished manuscript into a Mergenthaler 
typesetting machine, the output from which you are now reading. (The Tandy 
200 can also feed the typeset machine, without any modification whatsoever. Just 
hop right off the plane and plug it into a printer or typeset machine!) 



Chapter 5^ 


Intermediate 
Word Processing 


f T e continue our study of word processing using the OFFICE letter from the 
last Chapter. Set the cursor to the beginning of the letter. 


If you turned the Computer off since we left the last Chapter, place the cursor over 
TEXT MSMMsl to enter the TEXT mode, then OFFICE l=KH=j;l to load in the file 
named OFFICE. (A “short-cut” to do the same thing is simply place the cursor over 
OFF ICE. DO and press UgHiM .I 


Search and Destroy 

The Tandy 200 has a helpful feature called FIND. Press the LABEL command 
key and see the bottom display line read: 


Find Load Save List Copy Cut S e 1 Menu 


Function key FI lets us Find anything contained in the text. Press it, and see: 


Strings 
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The question may not seem clear, but it’s asking us what it should look for and 
Find. Let’s have it find the word “amazing.” 


ENTER 


Type the word am a z i n 3 and press 
Where is the cursor located now? Amazing, isn’t it? 
This time, press FI again and see: 


StrintfsawazinS 


It remembered what we looked for last time and is ready to do it again. Press 
It looked again, from the present cursor position, and found: 


ENTER 


No match 


There aren’t any more amazings in this letter. 

Next time we want to Find a letter, word or part of a word, just position the 
cursor (usually at the beginning of the text), press FI and type in the word sought. 

Try it yourself. Pick out at least 3 different words in the letter and Find them. 
Use parts of the word and also try using upper and lower case letters. The 
Computer will find the letters in either case. Find is especially valuable in finding 
words in very long letters. 


Safety Backup 

There are 2 ways to protect our profound scribbling from potential loss, 1 inside 
the machine and the other outside it. Let’s learn both. 

Inside: We frequently want to make a number of changes in a letter but want to 
keep the original intact. The easiest way is to make a Copy as seen above F5. 

To make a Copy we first “define” what is called a “block.” A block is just a 
part (or all) of the letter we wish to Copy. To copy the letter we: 

1) Return the cursor to the beginning of the letter and press F7. The 
Computer will not acknowledge this action. 
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2) Press well The entire text will appear in reverse image 
indicating it is defined as a block. 


3) Press F5 to Copy the block into what’s called the “PASTE buffer.” 
A buffer is a temporary parking place in memory for pieces of 
data. We can PASTE blocks of words into either the original letter, 
or as in this case, the entire letter into a new safety file. The 
original letter is totally unchanged. 

4) Press F8 and return to the MENU. 

5) Return to the TEXT mode and create a new file we’ll call: 


SAFET' 


ENTER 


6) Press the PASTE key, and watch your letter named OFFICE 
appear in the new file under the name SAFETY. 

Pasting, Blocking and Copying isn’t as complicated as it may seem, and is very 
powerful. When you’ve done it a few times, their use will become natural and 
automatic. 


Since we are simply Copying, not cutting or erasing anything, the Block we have 
in the Paste buffer remains there until you press F7 and either F5 or F6. 

Press F8 and return to the Menu. It should look like this: 
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Cassette Storage 

The only way to achieve a higher degree of file safety is to make copies outside 
the Computer itself. We already know how to use a printer to make “hard copy . ” 

So called “soft copy” can be made by recording the file onto cassette tape. The 
process is very simple. 

1. Obtain a Recorder such as Radio Shack’s CCR-82 (26-1209) or 
CCR-81 (26-1208), Interconnecting Cable (26-1207) and cassette 
tape (26-302). 

2. Connect the cable between the CASSETTE jack on the back of the 
Tandy 200 and the Tape Recorder as shown on next page: 
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3. Press the PLAY and RECORD buttons at the same time so they 
lock. 


4. Return to the Text mode by placing the cursor over SAFETY and 
pressing 


ENTER 


5. Press F3, and after the Computer displays 


Save to: 


“DUMP” the program to tape by typing 


LETTER 


ENTER 


The motor on the Recorder will start and stop several times while recording the 
file in 256 keystroke chunks onto the tape. 

When the flashing cursor returns and the motor stops, the file is Saved on tape. 
It is also in the Computer’s memory having only been “copied” out. 

Do it again, for safety, under a different name. 


Any name with 6 or fewer characters can be used. The first character must be a letter. 


Loading 

Reversing the process and loading (copying) the program from tape into the 
Computer is just as easy. 

1. Be sure the tape is fully rewound and the plugs are all in place. 

2. Push down the PLAY button so it locks. Set the Volume control 
to about 5. 


Important: Too little or too much volume will cause a bad “Load.” 
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3. Clear the display by pressing F7 and [HIM! ♦ (or -*-) and then 
F6. If the existing display is not removed, the new Load will be 
appended to its bottom. 


4. Press F2, and after the Computer displays 


Load from; 


type: 


LETTER 


ENTER 


and the data flows from the tape into the Computer. 
When the Computer finds the file, it displays 


Found s LETTER 

As it accepts the data, the internal speaker lets us listen to the 
data. Digital data sounds terrible! You were expecting maybe 
Lawrence We Ik or a secretarial dictation voice? 

When the flashing cursor returns, the motor stops and the Load is 
complete. The file also remains on the tape. 


If the recorder does not stop, press BREAK or the RESET button. This will 

take the Computer out of the Load or Save mode and return control to the keyboard. 


5. Look the letter over to see that the data transfer was successful. 

In the event that it was not, repeat the above steps being sure that 
all cables are properly connected, the volume is set to 5 and the 
tape recorder heads are clean. 

When travelling, this optional method of recording information will keep your 
luggage weight to a minimum: 

1 . Small hand-held dictating machine w/ AUX jack. 

2. Cassette cable. 

3. Several computer grade cassettes. 





NO, NO, A /O ! 
you DON’T NEED 
A PERMIT £4-1 P 
TO INCREASE 
TME MEMORY BANK ' 


i 


7i 


m 


m 




0£ii> -V 
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Housekeeping 

After all this File work, we have more files in the Computer than are needed. 
Let’s “kill off’ the unnecessary ones. 

First, write down the number of Bytes free from the Menu. Next, place the cursor 
over the unwanted file name (be sure to keep OFFICE, DO and SAFETY. DO). 
Write down the Length of the file (displayed at the bottom of the Menu). Press 
F5 and press Q . When the Menu returns, the file is gone and the Free Byte 
value has increased one byte more than the File Length. The Computer uses one 
byte of memory space to store the file name in the menu. 


Banking Facilities 

If your Tandy 200 is equipped with the minimum user memory of 24K, it can 
store up to 46 files. By adding a second 24K memory bank, it can store 46 more 
files. The maximum storage possible is 138 files using 2 optional 24K memory 
banks. 

Notice the #1 following the time at the top of the display. This indicates that 
we are using Memory Bank # 1 . Press FI (Bank). If you purchased an additional 
24K memory bank, the #1 will change to #2 and all the files will vanish from 
the display. They are stored safely away inside Bank #1, we just can’t see them 
because we are looking at Bank #2. Press FI again. Users with three memory 
banks will see #3 bank appear. 


Files can be stored independently in each memory bank and accessed by pressing 
the FI (Bank) key. The built-in programs, however, remain in the menu regard- 
less of the active bank number. 

Before moving on, return to Bank #1 and F5 (Kill) any other , DO files except 
0 F F I C E , D 0 and S A F E T Y , D 0 . See how nicely it cleans things up and makes 
more memory space available? 
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Advanced Features 


I n the last two Chapters we got a brief taste of the Editing capabilities of this 
word processor. While the TEXT program is a very elementary sort of processor, 
it is quite adequate for our portable Computer, and even if we don’t do much 
typing, it’s important to learn the remaining few advanced features. Readers who 
continue into the BASIC programming section also need to know these features 
since they are used when Editing BASIC programs. 

Short Blocks 

Select SAFETY ♦ DO from the Main Menu. We’ll experiment with this copy of 
our letter and leave OFFICE. DO intact for later use. 

Dear Janet ij 
■ij 

You're not 3 o i n s to believe this » but 
I ' m u sins a c o m puter with a w o rd 
processor. I'm not really sure what 
it's supposed to dot or how it's 
different from a typewriter t but people 
sure t a 1 K a lot about them. 

•si 
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They s a y y o u never have to use an eraser 
or white paint* and can m o u e words* 
sentences or whole paragraphs around 
without retypin'! them* When the letter 
or memo is in final form* a push of the 
PRINT Key dumps the whole thins to a 
printer. It all seems pretty a m a z i n S 
to me* and I'm still somewhat skeptical 

•ij 

I have to So now. We're supposed to 
take this letter and perform all sorts 
of masic on it. I'll let you know how 
it comes out. -s 


Press the LABEL key to display the soft key functions. In this section we’ll 
get a chance to use the Copy, Cut and Sel keys to edit our letter. 


Place the cursor over the letter Y in the word You're in the first paragraph. 
Now press the F7 key (Select) and then press ^ until the entire first paragraph 
is shaded. We may end up with a strange looking letter when this is finished, 
but we’re learning Editing, not grammar. 


Press F5 (Copy) and watch the shading disappear. The Computer placed the 
entire shaded text into the Paste Buffer while leaving the original text intact. 
In the last Chapter we placed the entire letter in the buffer to make this backup 
copy. We just replaced the buffer contents with a single paragraph. Drop to the 
bottom of the letter by pressing ♦ and press the PASTE key. We 

PASTEd a copy of the first paragraph to the end of the letter. 


Practice using the 
of this letter. 


SHIF 


[| key with the 


t and 4 keys to copy other portions 


Cutting 

Since we now have two (or more) identical paragraphs in the same letter, let’s 
Cut out the first one. Place the cursor over the letter Y in the word Y o u ' r e in 
the first paragraph again. Press F7 and use ♦ to shade in the entire first para- 
graph. When it is shaded, press F6 (Cut). The paragraph has once again been 
placed in the Paste Buffer except this time the shaded area was Cut out of the letter. 




<SET AWAY PROM 
ME WITH TMO^E // 
“CUT 0ncl PA^TE" l4> 
JU4T COMPUTER 
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Clearing the Paste Buffer 

In the last Chapter we “blocked” out the entire letter, then Saved it by Pasteing 
into another file. There is one peril in doing that. The Paste Buffer borrows 
memory space from our total, and it’s possible to tie up so much space with one 
long letter plus it’s safety file plus the same letter temporarily stored in the paste 
buffer that there’s no room left for anything else. Here’s an easy way to clear 
out the Paste Buffer and free up that memory space. 

Press the F7 key (Select) and then press F5 (Copy). Since we didn’t designate 
(shade) any text to be placed in the buffer, the Computer stored nothing in the 
buffer — thus clearing it. 

The Paste Buffer retains only what it last stored. 




Chapter 7 


Keeping a Schedule 


^ SCHEDULE program is a fairly powerful one, with some very interesting 
possibilities. It allows us to store things — notes and appointments and schedule- 
type things — and then quickly retrieve whatever we want. 


To use SCHEDULE, we will first create a file named NOTE. The NOTE file 
contains all our facts. The SCHEDULE program searches the NOTE file for 
meetings, trips, appointments and other information we have put there, and places 
it on the display. 

Enter the TEXT program and create a file named NOTE. (It must be named 
NOTE for SCHEDULE to recognize it, and no other file in this memory bank 
may be named NOTE.) 

Let’s put this information in the NOTE file. Carefully type the following 3 Lines: 


ABC | 


1 23 | 



3 b c | 
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Return to the Menu (as always) by pressing F8. 
Position the cursor over SCHEDL, and press 


ENTER 


The SCHEDULE program lets us search the NOTE file, looking for whatever 
we want. Press FI : 

and have it FIND 3. 

The number 3 is found in two lines, and those 2 lines are printed out in their entirety . 


123 
3b c 


Press FI again, this time FINDing a lower case b. 

The letter b is found in two lines: 

ABC 
3b c 

and they are both displayed. But the SCHEDULE program ignored our request 
for only lower case B’s. It cannot make the Upper/Lower case distinction. 


Function Keys 

Only 4 function keys are used: 

FI for searching. 

F4 for Editing the NOTE. DO file. 

F5 for printing the FIND on paper. 

F8 for the usual return to MENU. 

Press F4 to enter the Edit mode. 

Let’s edit out what we put there. We’ll replace it with an example that is more 
typical and meaningful. 
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Who, What & When 

To illustrate the SCHEDULE program’s information handling capabilities, let’s 
assume you’re a Manufacturing Director, and you need to schedule and track 
three products through three departments and depend on three outside suppliers 
for parts. 

We’ll invent a product (which we’ll call a Gooseflesh Eradicator) and write a 
schedule for it. 

Our responsibility for this product involves these departments: 

Engineering 

Tooling 

Production 

Supplies will come from: 

Fred’s Plastics 
Martha’s Metal Fabricators 
Bernie’s Boxes 

In typing in the schedule it will be helpful if we give each entry the prefix GE 
for Gooseflesh Eradicator. Type in: 

GOOSEFLESH ERADICATOR 
GE ENGINEERING in 2/15--out 2/28 
GE Order plastic from Fred's 2/28 
GE Order Knobs from Martha's Metal 4/01 
GE TOOLING in 4/05--out 5/01 
GE Plastic due from Fred's 4/08 
GE Boxes due from Bernie's 4/13 
GE PRODUCTION in 4/12--out 4/28 
GE SHIP DATE 5/01 

Now, just to make things more interesting, (and realistic) let’s throw in the 
schedules for a couple more current products - the Omelette Inversion Module, 
and the Digital Toothbrush. Again, OI stands for Omelette Inversion Module, 
and DT stands for Digital Toothbrush. 

OMELETTE INVERSION MODULE 
01 ENGINEERING in 3/21 — out 4/01 
01 Order plastic from Fred's 3/24 
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01 TOOLING in 4/2S--out 5/01 
01 Plastic due from Fred's 5/01 
01 PRODUCTION in 5/02--out 5/15 
01 SHIP DATE 5/18 

DIGITAL TOOTHBRUSH 

D T Design meetinS with F r e d - - 4 / 0 3 
DT ENGINEERING in 4/08- -out 4/22 
DT Order plastic from Fred's 4/ 28 
DT TOOLING in 5/20--out 5/30 
DT Plastic due from Fred's 5/17 
DT PRODUCTION in G/02--out 6/15 
DT SHIP DATE 8/18 

That’s quite a lot to keep track of, but nothing a few 3x5 cards couldn’t handle. 
But short of reading every card in our file, how do we look up things like: 

• What plastic does our supplier Fred owe us and when? 

• When is the Engineering Department going to have some slack time? 

• What’s going on the day of the golf tournament (5/15)? Can we get 

away? 

• What’s going on today? 

The answers to these and dozens of other questions is as simple as pushing the 
FI button. 


We entered these schedules in the NOTE file, but remember, to use them, we have 
to be in SCHEDULE. So, F8 to MENU, then cursor over to S C H E D L and 


Suppose we get a message to call Fred’s Plastics. Before we call him, we want 
to have at our fingertips a list of everything he’s working on for us, so we can 
talk somewhat intelligently. 

Press FI . 


I 


S c h d : 


Find Fred 


ENTERI 



A bOOZe FLESH eRAPlO^TOl?, 
AN) OMELETTE - I MVER4.IOK) 
MODULE OwL A DlEITAL. 
TOOTHBRUSH"'?? NEV, 
HAS AM V BOEV CHEEKED 
'VOl/JZ RESET BUTTON) 
LATELY 2 

m 
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There before us is every entry in all our schedules that mentions Fred: 



DT Design meeting with Fred--4/03 
DT Order plastic from Fred's 4/26 
DT Plastic due from Fred's 5/17 



For a complete display of the NOTE. DO file contents, answer FI with a simple 
• If h fills more than one screen, keep pressing F3 until you’ve found 
what you want. 


Now you see why we stuck those prefixes on the front of every entry — good to know 
which job we’re supposed to be ordering plastic for on 3/24. 


Let’s see... we also want to know when there will be some slack time in En- 
gineering... FI 


S c h d : Find Engineering 


ENTER 


Suddenly we know everything the Engineering department has to do for the next 
couple of months: 



Looks like we might be able to squeeze in another project in early March. 
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Finally, and most important, the golf tournament. We can check any date — 
today’s, the date somebody wants to make an appointment, or the date of 
something vital, like a golf tournament: FI 

S c h d : Find 5/15 WEES 
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Traveling on business? Need to keep track of expenses as they occur? Just place 
a $ somewhere in the entry, and back at the office, ask the Computer to Find 
$. Up comes a list of everything you put in with a $ in it, and it doesn’t matter 
how many other reports, schedules, jokes or golf scores you have put in between 
all those expenses. The Computer will find them all, and line them up neatly 
ready for printing out. 


Setting the Alarm 

The NOTE. DO file has a useful feature for those of you who need an alarm to 
remind you of a scheduled event. By inserting the Date and Time before the 
event, the Tandy 200 will ring its alarm and flash the event on the bottom line 
of the main menu. 

The meeting with Fred on 4/03 is a good example of an event that can demonstrate 
the alarm feature. Press FI and Find DT. The Computer should find the line: 

D T Design meeting with Fred - --4/03 

Let’s set the alarm to alert us when it is time to leave for the meeting. With the 
cursor sitting on the letter D in DT, insert today’s date and the present time 
followed by an A enclosed in commas. For example: 

12/09/85 t09: 15:00 # A »DT Design meeting with 
F red - -4/03 (Use today’s date & time.) 

Add about 5 minutes to the present time so you have time to read the rest of this 
before setting the alarm. 

The Date must contain 2 numbers each for the month, day and year, and each 
part must be separated from the others by a /. The Time must also contain 2 
numbers in each segment, following the same 24 hour format as displayed on 
the main menu. Since the Computer ignores the seconds, it’s easiest to set them 
to 00. The A following the time tells the Computer that we want the alarm to 
sound. 


The A indicator must be a capital letter. 


A comma must be placed between the Date, Time, the letter A and the note. The 
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Computer is very fussy about each of these requirements, so be sure to follow 
the format shown in the example. 


Activating the Alarm 

Press F8 to set the alarm. There is no visible indication that the alarm is set 
other than the information we just placed in the NOTE. DO file. 

Now sit back and wait for the alarm to sound. Watch the time tick by on the top 
row of the main menu. When the time reaches the alarm time entered in the 
NOTE. DO file, the buzzer sounds for a couple of seconds and the note flashes 
on the bottom of the display. To turn off the flashing message, press any 
key. Enter TEXT and then F8 back out to the main menu. Notice that the 
message is flashing again. It will continue to remind us of the meeting each time 
we return to the main menu. 


Turning the Alarm Off 


To clear the alarm, press 
back out. 


shif 


LABEL or enter the NOTE. DO 


file and F8 


Multiple Alarms 

Let’s go back into the NOTE file and see what happens when more than one event is 
alarmed. Edit the first alarm time for about 5 minutes from now and add a second 
alarm for one minute later than that: 


12/03/85 tl4s30;00>AfDT Design meeting with 
F red --4/03 

12/03/85 *14:31 :00 # A * DT ENGINEERING in 4/08-- 
out 4/22 


Use the present date and time + about 5 minutes. 


After the alarms are set F8 back to the main menu, turn the Computer off and 
wait for the first alarm to sound. If the alarm is set properly, the Computer will 
turn itself back on and the alarm will sound with the first message flashing on 
the display. 
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While the first message is flashing, watch the clock and wait for the second alarm 
to sound. This message should continue to flash on the bottom line. 

DT Design meeting with Fred --4/03 


Notice that after the second alarm sounds, the first message continues to flash 
on the display. Do you see any change in the message? Over to the far right of 
the message line a right arrow has appeared. 

D T DesiSn meeting with F r e d - - 4 / 0 3 * 


SHIFT 


The arrow indicates that another message is waiting to be read. Press 
LABEL. The message line will switch to the next message, and the arrow will 
disappear. 


DT ENGINEERING in 4/08--out 4/22 


The Computer does not want you to miss any messages. If the first message is 
still flashing when the second alarm sounds, the second message is stored until 
the first message is cleared. The Computer can keep 3 messages waiting for 
viewing. 



2nd message (waiting) 
3rd message (waiting) 
4th message (waiting) 


If the alarm sounds with 3 messages on hold, the flashing message is replaced 
with the next message in line, and the others move up on position. 
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3rd message 
4th message 
5th message 


Try setting several different events to set the alarm off at different times. Since 
the NOTE. DO file can handle up to 255 alarm settings, don’t worry about 
overtaxing the system, just remember to clear each message with | 
before the next alarm sounds. 


SHIFT 


LABEL 


Executive Notepad 

Do you find yourself jotting down notes on yellow pads? What happens to those 
pieces of paper? Did your notes from the last two meetings and Joe Smith’s 
phone number and the contact reports from the last three stops and your flight 
number (not to mention departure time) and the racquetball game you promised 
Ed and the name of that house painter Shirley recommended all sort of get 
absorbed into your desk/pockets/briefcase/floor somewhere? 

Enter them into the magic Notepad any time, anywhere, as they come up. 
Even if you’re in the middle of inputting a big schedule, or the contents of the 
wine cellar, stick them right in. Later, to find out when the racquetball game 
with Ed is supposed to be, F i n d Ed, or if you can’t even remember who, 
Find Racquetball, or game, or if you can only remember that there was 
something on Thursday night, Find T h u rsday. 

Develop a set of codes. For instance, an * in a note might mean “important, 
don’t forget.” Every day, or several times a day. Find *. 


Anything important will come to the surface no matter how buried in the pad it 
may be. 


If, during the day or on the plane, you make a note to place a phone call, include 
the little “fone” graphic [§ in the note and set the alarm. When it’s time 

to the make phone call, the alarm will sound. If you want to review the calls 
before the alarm sounds, F i n d ££H2H> and you’ll have a list of all your calls. 
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Don t forget to clean house’ once in a while. You can Find entries in the 
SCHEDULE, but you have to go back to the NOTE file to change, add or delete 
them. 

The major difference between Find in NOTE and SCHEDL is that in NOTE, we 
Find them only one at a time. 


LISTing the NOTE File 

F8 to the main menu and enter the NOTE. DO file. Press the LABEL key and 
the bottom display line should read: 

ART WORK 

Press F4. Look familiar? This is the same screen format we saw when entering 
SCHEDL. The special features we saw in SCHEDL are also available in each 
TEXT file by simply selecting the LIST command. 

SCHEDL is provided as a convenient means to search for information from the 
NOTE. DO file. Since NOTE. DO is “slaved” to SCHEDL there is no need to 
enter the NOTE. DO file and then select the LIST command. These two steps 
are done automatically by entering SCHEDL. 


Found in a CompuSoft Computer 

The above are admittedly hypothetical examples. To see how this thing is really 
used, let’s look at a NOTE file found in the computer of a notorious CompuSoft 
executive: 

6/18 National Widget Conference 
2/1 - 2/9 Bass f i s h i n S in New Zealand 
12/15 Taxes due on Avocado Ranch 
06/1 1/85 >10:30:00 >A> Another fool Bud Set 
meet i n s 

10/08/85 >06: 15:00 >A> WaKe up! Antelope 
h u n t t o d a y . 

06/10/85>ll:00:00>A> Phone Mad Kins 
L u d w i S 

7/21/85 >13:45:00 >A> Meet with Broker 
07/22/B5 >14:30:00 >A> Meet with Swiss 
B a n k e r 

07/23/85>09:00:00>A> Meet with IRS 
07/23/85 >14:30:00 >A> Leave for Brazil 



I he ADDRSS program is virtually identical to the SCHEDL program. Only 
its application intent is different. It allows us to find names, addresses, phone 
numbers and other special information we previously stored in a TEXT file named 
ADRS.DO. Actually, we can store any information we want in the ADRS file, 
but for the sake of a simple example, we’ll learn how it’s done using names and 
addresses. 

Begin from Main Menu by placing the cursor over TEXT and as when 

creating any other Word Processor file. Name the file ADRS, then enter the 
names, addresses and telephone numbers of several friends, clients or those who 
make up your own special hit list. Be sure to include the following, so we can 
all have a common example: 

CofriPuSoft Publishing* 535 Broadway* El 
CaJon * CA 92021 B19 588-0996 

Press F8 as usual to return to the MENU, then move the cursor over the A D D R S S 
program and press |3£113ii- 


54 



The Address Book 55 


A d r 5 : 

appears, asking “what address shall I find?” 

Notice that the labels at the bottom of the display indicate that only 4 soft keys 
are used. FI searches and displays, F4 Edits the ADRS.DO file, F5 searches 
and prints on a printer, and of course, F8 returns to MENU. It’s the same as 
SCHEDL. 

Press FI . 

Answer A d r s : with: 


ENTER 


and see the entire CompuSoft Publishing entry appear. 
Press FI again and answer with: 


ENTER 


Same results. 

That’s really about all there is to it. If you can remember even a portion of an 
entry, it will be found and displayed or printed. So will all other entries which 
contain the same characters . Try searching for a single letter and see what happens . 


The Yellow Pages 

By now you probably have the hang of this finding business, but we don’t want 
to overlook any of the possibilities. 

We know that the ADDRESS program will find CompuSoft, or 535 or any other 
part of the address, but don’t forget that it will also find Publishing. Furthermore, 
it will give us a list of all the Publishing companies in the file. 

What that means is that we can get a list of all the companies that do a given 
thing, as long as we have included the type of business in the listing. If Publishing 
had not been in the company name, we would have to add it when we put the 



you Si//Z£ you 

WANT f-/gjR NAME 
IN Ti-ie PI UP 'Z 
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address in the list: 

CowpuSoft Inc* (Publishing) * 535 Broadway > 

El CaJon t CA 92021 B19 588-0996 

The Tandy 200 will even do things the Yellow Pages won’t. It will allow us to 
use our own personalized categories: 

Joan Johnson (Steering Committee) 123d B St* 
Fred Wannamaker (Class of '63) 4567 C St* 

Bob Williams (Sales Rep) 8910 D St* 

Finding ‘63 will produce a list of the whole class (assuming we’ve listed them 
all and included ‘63 in each entry). 

Some entries may be in more than one list and therefore automatically cross- 
referenced: 

Fred Wannamaker (Class of 'S3) (Sales 
Rep) 4567 C St* 

Fred’s address will show up when we search for all the Reps and again, when 
we want a list of the Class of ‘63. 

Remember, to make changes in the ADRS.DO file from ADDRSS, press F4 
(Edit). Additions, deletions and changes can also be made by reentering the 
ADRS.DO file and working it over with the word processor. 
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MSPLAN 


N\~ 

f “ ©SPLAN is a powerful spreadsheet program that can do simple calculations, 
budget planning, even cost analysis. If, after going through this Chapter, you 
like what you see and want to learn more, refer to the book on MSPLAN included 
with the machine. 



for the TANDY 200 
(C) Microsoft Corporation 1984 


File to use? i 
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Cursor Movement 

Press the t key, and watch the cursor move to the right. Continue pressing the 
| key, and watch the numbers increase until you have reached column number 
63 The Computer will beep if you try to go past 63 since that’s the highest 
column number permitted. Press the ♦ key, and move the cursor down several 
row numbers. You can speed up the cursor movement somewhat by pressing the 
arrow keys while holding down MSHdil. This makes the cursor skip an entire 
page of numbers. For example, if you stop the cursor on row 29 then press the 
an( j key, the cursor skips 14 rows (one page) to row 43. Continue 
skipping until row 99 is reached. The cursor should now be sitting at the “cell” 
located at Row 99/Column 63, which is at the far end of the spreadsheet. 


Advance to GO, do not pass Jail 

Let’s take a shortcut back to the cell at Row 1 Column 1. Press 003 and the 
+ key. We can also make the cursor GOTO any cell on the spreadsheet by using 
MSPLAN ’s Transfer command (F7). 
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Press F7 to display the TRANSfer commands. 

Load Save Clr Goto 



We want to GOTO a different cell location, so press F5. 



GOTO cell: &&§ 


The 


R1C1 


Type: 


indicates the present cursor location at Row 1, Column 1. 


R14C4 BfflEa 

to move to Row 14, Column 4. Notice how the entire display is repositioned to 
place the cursor in the upper right portion of the display. 


Number Crunching 

To learn a few of MSPLAN’s calculating capabilities, let’s do some simple math 
calculations. Reposition the cursor to cell R3C2. Type the number 2, and notice 
that the number is displayed on the bottom line following g a 1 u e : . This 
“previews” the information we are typing prior to its being placed in the indicated 
cell. If it is correct, press EMMA . The active cell now shows: 
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Press 

With the cursor now sitting at R4C2, type the number 4, and press again. Pres- 
sing ♦ entered the number in the active cell and moved the cursor down to the 
next cell, all in the one step. 

So far, so good. For our first math formula, type this short line: 


=R3C2+RdC2 (Don’t press 


ENTER 


yet.) 


It says, “Add what’s in cell R3C2 to what’s in cell R4C2, and print the results 
in the cursor’s current position.” 


Notice that the formula starts with an equal sign ( = ). Without the equal sign, 
the computer would see the formula as a heading or text . Now , press The 

formula is not displayed in R10C2, but the result is. 



With the cursor sitting in cell R5C2, press FI. This puts the computer into 
MSPLAN ’s Edit mode which has the same editing features we learned in the 
TEXT program. The Editor is also used to view formulas. 

Edit: =R3C2+R4C2 


Let’s edit the formula and replace the addition ( + ) sign with a multiplication 
sign (*). 
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With our formula now looking like: 


Edit: =R3C2*R4C2 

press to leave the Editor, and watch the result change to 8. Enter the 

EDITor again, and try other math functions. Any of these MSPLAN math symbols 
may be used: 

+ Add 
— Subtract 
/ Divide 
* Multiply 

Exponentiation 
% Percent 

When you’ve finished experimenting, change the formula back to multiplication. 

Entering Text 

Now that we see how to enter math formulas, let’s add some text information to 
clarify the formula. Place the cursor at cell R1C2, and type in this heading: 

Math Formula i3Ena:l 

Oh, oh. Only the first 9 characters are displayed. Each cell can hold up to 9 
characters unless told otherwise. 

Let’s start over with a clean slate. Press F2 and to Blank the cell, then 

type the first 9 characters (Math Form). Press the t key, and finish the word 
Fo rmu 1 a by typing: 

u 1 a 

The top line now shows: 

2 | 3 | 4 | 5 

1 Math Form IHHflEEEl 




MSPLAN 63 


, Not a very impressive heading. The Computer automatically places the text at 

| the right side of the cell. To left justify the letters against cell 2, we need to 

, change the display format. Press F4 for the Format commands. Since we only 

want to change this one cell and not the Width of every cell, press Cell (F2) . The 
bottom two lines now indicate the present Format setting for this cell: 

Cells: ICH 1 W # Dec : 2 

Left C e n IcflflCI Fix EEKB $ 

The [£!!•£] is the present cell location of the cursor. Press IfcVi to move the cursor 
to the next format question. If we needed more or less than 2 digits to the right 
of the decimal point, we could now change it by typing in a new value. Let’s 
leave it as is, and press to switch back to IsiMd . 

The bottom line reports the cell’s display format options. The first format option 
is the display justification. Press F2 to change the justification to [Left] since 
we want our title to start at the left edge of the cell. The next format option lets 
us change the cell’s display to Fixed decimal point, General text (using conven- 
tional format), or dollar ($) format. Let’s leave ours in the General format and 
press to store the new formats. 

That’s better, u 1 a is now sitting against the left side of the cell. 



More Headings 

Add these new headings in R4C1 and R5C1: 
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Moving the Formula 

Let’s dress it up a bit more by moving the 8 (the only part of our formula that 
is displayed) down one cell to make room for a line. Place the cursor over the 
8 in cell R5C2, and press Copy (F3). We want to move it down 1 cell so press 
Down (F3), and answer the Do wn # cells: i question by typing 1 WtHil . 
We now have the 8 sitting in cells R5C2 and R6C2. With the cursor back in 
cell R5C2, type 9 dashes, and 133^:1 . 



Printed Copy 

For those that have a printer connected to the Tandy 200, let’s make a hard copy 
of the spreadsheet. Press £liiUU PRINT. The bottom line displays: 


width: C 7 0 ] from: R 1 : 9 9 

The Computer is set to print the spreadsheet with a width of 70 characters starting 
at Row 1 and continuing through to Row 99. We can accept these values and 
start printing by pressing I3EII3:! - or we can type in new values for width and 
row coordinates. Pressing the key switches the cursor over to the Row 
coordinates so new ones can be entered. 

Check your printer connections, make sure it is online and then press I3EH3H . 

Leaving MSPLAN 

As with the other Tandy 200 built-in programs, we exit MSPLAN and return to 
the main menu by pressing F8. Do so at this time, and take a close look at the 
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menu. PLAN ♦ CO has been added to the list of files. The Computer added the 
extension ♦ CO to PLAN to designate this file as an MSPLAN file. Place the 
cursor over PL AN ♦ CO, and press The Tandy 200 enters the MSPLAN 

program and loads PLAN. CO all in one step. Very similar to the way we enter 
TEXT files from the menu. 



' Communications 
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Why Telcom? 


ELelephone COMmunications between computers is not new but is always 
exciting. With this little Computer you can sit in the comfort of your home or 
office, dial up a Computer that is equipped to talk to you and send or receive 
messages, memos, telexes, contracts, financial reports, stock market quotations, 
weather forecasts, make airline reservations and do just about anything else that 
can be reduced to writing. 

That’s the good news. The bad news is that you have a problem. Despite these 
glowing promises, it’s seldom mentioned that two computers are required in order 
to wallow in this ecstasy. One to send the message, and another to receive it. Our 
Computer makes 1 , and then there’s, ah, urn, ... you see the problem. Since our 
teaching style requires doing things, not just talking about them, we have to solve 
this problem of finding a second computer. 

Let’s assume we can solve the 2-computer problem (since we can), and perform 
the preliminaries necessary to set up your Computer. From now on, the 2 
computers will be referred to as ours and the other one. 


A Little Theory 

A computer terminal is connected to a computer via 2 wires. If the physical 
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distance between the terminal and the computer is great, they will be hooked 
together by a telephone line. 

A terminal can either be “dumb,” that is be completely slaved to the other 
computer, or be “smart,” having independent capabilities of its own. Dumb 
terminals are typically found in business and educational environments where a 
very large central computer does all the thinking, and many terminals are scattered 
about providing the means for many users to talk to it. 

More elaborate telecom setups involve a remote computer talking to the central 
(or another) computer. The remote computer, since it can do special things you 
will soon learn, is a smart or intelligent terminal. Your Tandy 200 can work as 
either a “dumb” or “smart” terminal or be a complete stand-alone computer which 
can talk to other terminals or computers. 

In order for computers to talk to each other, or to a terminal, arrangements must 
be made to transmit their signals over wires. Altho ordinary telephone lines were 
not designed to carry data, they can do so reliably as long as we don’t try to send 
it too fast. Our normal speed is 300 bits of data per second — about 360 Words 
Per Minute. That’s several times the speed of a top typist. 

We’ve all heard what computer data sounds like when loading in TEXT files 
from cassette tape. It’s not at all like the human voice. To make all this work, 
that data has to pass thru converters called MODEMs at both ends of the phone 
line. MODEM stands for MODulator/DEModulator. The Tandy 200 has a built- 
in Modem. 

There is a lot you are not going to learn about the very large field of Telecommuni- 
cations. The theory of modulation and demodulation is one of them. You are going 
to learn how to use your Tandy 200 as both a “dumb” and “smart” terminal. 


Setting It Up 

Locate the PHONE jack at the back of the Computer. This is where you will 
plug the telephone line into the built-in MODEM. It is necessary to purchase 
Radio Shack Cable assembly (26-1410) to make the connection. If your phone 
does not have a standard modular jack (such as a multiple line system, an older 
phone connection, a pay telephone, or in an overseas hotel room), there are other 
ways to hook the Computer into the phone system. They are covered later. 

The Fine Print 

Before making any direct electrical connection to a U.S. telephone line, you are 
required to contact the telephone company and provide them with the technical 
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information listed on the bottom of your Computer. (Don’t be surprised if they 
don’t understand why you are calling. If they do, don’t be surprised if they try 
to raise your rates — a lot!). 


The Direct Connection 

Locate yourself near a modular jack or a telephone that is plugged into one. 
See Figure 5. 




Figure 5 


The Radio Shack cable assembly is really a bit elegant and more than needed for 
a minimum hookup. It is very nice however, for a semi-permanent installation 
in the office or home where the Computer is frequently plugged and unplugged, 
and a telephone must use the same phone jack. Figure 6 shows the connection 
in its simplest form. 

Notice that the phone cable (26-1410) has two cords attached to one round plug 
and a round jack is hung on with a plastic strap. Insert the round plug into the 
jack marked PHONE on the back of the Computer. 

If you’re plugging into an extension phone jack and don’t need that phone for 
regular use, unplug the entire phone and cable from the wall and set it 
aside. Insert the modular plug on the tan cable into the wall jack. Let everything 
else just hang. 
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Figure 6 


If the phone must also be used for regular voice communications, insert the 
modular plug on the silver cord into the phone. Whenever the Computer is 
. unplugged from the cable assembly, insert the round plug into the shorting jack 

(hanging on the cord). This reconnects the phone to the wall outlet. 


If the wall, outlet is hidden or too hard to reach, the original telephone cord can be 
used as an extension. Disconnect it from the telephone at the phone end (shown in 
Figure 7) and connect the silver cable to the phone. Plug the original phone cord and 
the tan cable into the block adapter. 
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The Indirect Connection 

It is impossible to make a simple DIRECT connection to many phones, especially 
pay phones. The easy way out is to use the Acoustic Coupler for the Tandy 200, 
Radio Shack 26-3805. These rubber covered muffs slip over the ear and mouth 
piece of a standard telephone handset. Their use will be covered in the next 
Chapter after we finish setting up the Computer. 

If you made the connection above without difficulty or will be using the Acoustical 
Coupler on a standard handset, skip the rest of this Chapter. 

The Overseas Connection 

It is often impossible to find a phone with a modular jack, and the rubber cups 
on the Acoustical Coupler won’t fit many fancy phones in this country or others. 


Disclaimer 

The following information is furnished for discussion purposes only. If you get 
into trouble with the phone company (or foreign governments) for using it, don’t 
contact us. Likewise, just because I may have used these techniques in the U.S. 
and numerous Foreign Countries in no way guarantees its accuracy, safety or 
applicability to your particular situation. 


Anyway 

If your Computer installation is to be a permanent one, it’s best to call the phone 
company and have a modular jack installed. Second best is to buy a modular 
jack and install it yourself. They are available at Radio Shack and telephone 
specialty stores. 

Many modem hotel rooms have modular telephones with jacks to match, and the 
techniques described at the beginning of this Chapter apply. Travelers may wish 
to carry the following kit for connecting to those phone systems not yet equipped 
with modular jacks. 


TANDY 200 TRAVEL KIT 
TELECOM OPTION - DIRECT CONNECT KIT 

1. Special 3’ computer to modular plug. 

2. Special 3’ computer to alligator clips (Figure 8). 

3. Inline Adapter - Modular to Modular. 



YOL^YOU 

WMAT2 



~TUAT NUMBER 
YOU 6AVE M E. 

A DUMB 
COMPUTER 
ANSWERED, 
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4. Duplex Jack - Modular to Double Modular. 

5. Tool Kit: 

1) Screwdrivers - small Phillips, flat blade. 

2) Pliers, needle and diagonal cut. 



Figure 8 

Screwdriver, Alligator Clips... 

In the U.S., there is an older type telephone plug which is easy to clip onto. 
Merely pull the plug out of the wall as far as possible without breaking the 
connections, then hook the alligator clips on as shown below. It usually doesn’t 
matter which color clip goes to which: 



Figure 9 
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In Europe, 3 and 5 prong plugs are very common. Use the same technique. 

If no modular system is used, it’s necessary to open up either the wall jack or 
the phone itself -- usually easy jobs. 

1) Remove the wall plate. Only the GREEN and RED wires are 
needed. Ignore the rest. 

2) Clip one lead onto a terminal to which the GREEN wire is attached, 
and the other onto the RED’s terminal. 

3) If the wall plate is too hard to get at, or (as in Holland) it s easier 
to locate the wires by removing a plate from the bottom of the phone, 
do so. Be sure to use the RED and GREEN wires coming from the 
wall, not those used for wiring inside the phone. 


Note: Some experimentation may be necessary to locate the two active wires. RED 
and GREEN are not always standard throughout the world, let alone the U.S. 


4) Proceed with communications as covered in the next Chapters. 

5) When done, “button up” the system as you found it. 
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You Called? 


E — — 

ven we haven t found that elusive other computer yet, we must learn how 
to make the phone call to make the connection. 

There are 3 ways to dial the phone. The most obvious is to simply lift the handset 
and dial the phone. This works just fine if the phone is still plugged in after 
hooking up the Computer. 

The second way to dial is to type the numbers on the Computer. The rest is auto- 
matic. Regular “tone dial” systems can be dialed just fine with the Computer’s 
“tone dial” feature or the “pulsing” feature although it’s best to use tone dialing 
on phone lines that are equipped to accept them. Tone dialing is faster and more 
reliable than the old pulsing system. In order to access the new lower-cost 
forwarding services such as MCI™ tone dialing is required. 

The third and most exotic way is to store the phone number (or many different 
numbers) in our ADRS.DO file (see Chapter 8). The TELCOM program looks 
up the number(s) and dials them automatically, like an automatic phone dialer. 
All things considered, automatic dialing is usually preferable. 


If you skipped Chapter 8, return there now and learn how to use APRS. 
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The Second Way 

Turn on the Computer and select: 

TELCOM Bang 

Turn the Tandy 200 into a TERMinal by pressing F4. 

What happened? That scratching sound is the dial tone. It may not sound like a 
dial tone, but we have hooked the Computer up to the telephone line. Now what 
do we do? Better learn some more about all this before we get into trouble. 

Press filial BREAK to Disconnect and return to: 

Telcow: 

This time, let’s Call a number and see what happens. If there is a second phone 
line in the office or house, use its number. If not, use the same number the 
Computer is hooked to. 

Press F2, to go into the Call mode. Follow up by typing the number of your 
choice using this format: 

123-45670 aaEB 

The <> is necessary to indicate the end of the number, and prevent automatic 
hang-up when dialing is complete. 

Listen for the dialing relay and watch the numbers appear on the display. When 
done, you will hear either the other phone ringing or a busy signal sound scratching 
in the speaker. 

To cancel the call, press filial BREAK. 


Dialing Options 

The Tandy 200 is set by the factory to operate using the old standard pulse 
system. If you tell it differently, it will dial the phone at 10 pulses per second. 
Press F3 and 


M7 I 1 ENN >0 » 1 0 pps 
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These series of letters and numbers are the TELCOM’s status. We will learn 
what each of these letters and numbers represent, but for now, let’s only change 
the dialing rate. Since the Tandy 200 can dial the phone at twice that rate, press 
F3 and type: 


M7I 1ENN >0 >20 


ENTER 


The Tandy 200 will accept upper or lower case characters but display the status in 
upper case only. 


The number 20 tells the Computer to dial the phone using the pulse syst em at 20 
pulses per second. To verify that the status is changed, simply press F3 13EH3H 
and the new status is displayed. Give it a try. If your phone can’t handle the 
faster pulse dialing rate, change the configuration back to: 


M7I 1 ENN >0 >10 


Tone Dialing 

If you presently are using a phone with push buttons, chances are you can use 
the Tandy 200 ’s tone dial feature. (If you have a rotary-dial phone, give the tone 
dial feature a try anyway. You may be pleasantly surprised to find your phone 
line accepts tones.) 

Press F3 and type: 


M7 I 1 ENN >□ > T 


ENTER 


Try dialing a number and notice how much faster the numbers are dialed. If it 
worked and your call went through, continue to use the tone dial feature. If it 
did not work (the dial tone remains after the number is dialed), change the 
configuration back to the pulse dial feature at the rate of 10 or 20 pulses per second. 

So much for the keyboard method of dialing a number. Let’s move right on to 
automatic dialing so we can forget these preliminaries and get to the good stuff. 


The Little Black Book 

F8 back to the MENU and select: 

TEXT 


INTER 
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Answer the File to edit? question with: 

ADRS 


If you didn’t skip Chapter 8, you already have an ADRS file. In that case, put the 
cursor over ADRS ♦ DO instead of TEXT and [3?fI351 


Enter the desired phone number in the ADRS .DO file using the following format. 
TEST : 123-45S7C > 


To allow the dialer to call a phone number and an extension, we would use this 
format: 


TEST: 123-45G7 


EXT ♦ 


8 


Press F8 to store the file, then select: 


TELCOM 


ENTER 


The display will show something like: 



Find Call Stat Term Menu 



The top line shows the Computer’s present status for talking with other computers. 
We’ll look at STATUS in more detail in a minute. 


The second line indicates that we are in the Telcom mode. 
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The bottom line gives us 5 soft key options. Let’s start by FINDing the TEST 
phone number. Press FI and: 

Find: 


TEST 


ENTER 



Notice the difference between this FIND and those we saw earlier in TEXT, 
SCHEDL and ADRS. This listing displays everything up thru the <> symbol. 
The colon (:) tells the Computer that a phone number immediately follows, and 
it is ready to perform an auto-dial. The <> marks the end of the number. 


Look again at the bottom line. When the Computer found our listing, it repro- 
grammed the F2, F3 and F4 keys. 


Let’s go ahead and make our call. Press F2, (or simply 


ENTER! 


See the F keys reprogrammed again to their prior Functions, and each number 
is displayed as it is dialed. 


Call in* TEST: 1234567 


After the entire phone number is dialed, the Computer makes a grinding sound. 
This is actually the ringing signal being processed by the Computer and fed to 
the internal speaker. 


We aren’t ready to talk to a computer yet, so hold down 
bail out of this situation. 


SHIFT 


BREAK and 
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The CompuServe Connection 

When you purchased the Tandy 200 Cable (26-1410), it came in a package along 
with a CompuServe™ Information Service User’s Guide. 

The most important part of that package is a sealed envelope with your SECRET 
PASSWORD and admonitions about keeping the SECRET PASSWORD, ah, er 
secret. Since we only get 1 hour free time on the other computer, unless you 
sign up for more, it’s OK to whisper the password to the dog. It can be changed 
later or you may sign up with another service or have your own other computer. 
There are lots of possibilities. 

In a frenzy of excitement, rip open the envelope! 

What is this, another credit card application? Ignore all the fine print and look 
on the bottom for the: 

User Identification Number and Secret Password 
(Isn’t this exciting?) My fortune cookie reads: 

70076,174 and KNIGHT/SLEPT 
(And that’s how Camelot was lost?) 


On the plains of the horizon bleach the bones of countless thousands who, at the dawn 
of victory paused to rest, and resting, died! (Apologies to Rudyard Kipling, but this 
password strikes me as very funny.) 


Your ID# and PASSWORD will hopefully be different, but for learning let’s 
use mine to tiptoe through this process. You substitute yours as necessary. 


Don’t swallow the paper containing the SECRET PASSWORD. 


Locate the sheet that’s titled: CompuServe Information Service Access Numbers. 
Find the telephone number that’s closest to your location. If there isn’t one close 
and you don’t want to spring for an hour’s worth of Long Distance time, they 
have a supplemental network system where service is available at a lower toll 
charge. For that number, call CompuServe Customer Service at (800) 848-8990 
or (614) 457-8650. 
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The Other Computer 

F8 back to the MENU, and select: 

ADRS.DO 

Add the CompuServe Information Service name and phone number using the 
same format. This example uses the number for the San Diego area. 

C IS s 283-G02 1 < > 

F8, back into TELCOM and the familiar: 


M7 I 1 ENN » G # 1 0 p p s 


Telcom: 


Find Call S t a t Term 

M e n u 

- 




What Is Your Status? 

Press F3 for a computer-to-computer Interfacing status report: 

If it doesn’t read: 

M7I 1ENN ,0 ,T or 

M 7 I 1 E > 1 0 pps (Don’t worry about the details, yet.) 

simply press F3 and type one of the above, then press lafliiasl 
Doublecheck the status to be sure it was changed by pressing F3 [3£U3 aI again. 

The Whole Enchilada 

We have one final check to make before we get down to business and make our 
first real call to the other computer. Look at the slide switch on the left-hand 
side of the Tandy 200. It can be set to DIR or ACP. Select DIR for a DIRect 
phone connection (or ACP if using the portable acoustical coupler cups). 
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The DIR/ACP switch has no effect when using the RS-232C connector on the back 
(studied later). It is only a concern when using the internal modem. 


Acoustically Coupled 

Acoustic coupler cups (26-3806) are specifically made for the Tandy 200 and do 
not require an external power supply, thus are ideal for making calls from any 
pay phone. 



Figure 10 

The disadvantage of using an acoustical coupler is that the Computer cannot dial 
the phone. Everything else works as stated. 


Who’s Going to Answer? 

For two computers to communicate, one modem must act as the OKIGinator, 
while the other ANSwers. This has nothing to do with who dials the phone or 
who answers, it simply establishes which tone each will use to send and receive 
the data. In most cases the host computer (CompuServe in our case) is^ set-to 
ANSwer. Our Computer must therefore be set to ORIGinate. Press F3 
and look at the status. 


ENTER 


M7 I 1 ENN >0 » 10 pps 

The letter 0 indicates that it is in the Originate mode. If we were to call someone 
with another Tandy 200, one or the other must set the STATus to Answer in 
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order for them to communicate. The Answering Computer’s status would look 
like: 

M7IlENNtA>10 pps 

By changing the 0 to an A, the Computer is set to Answer. 


At Last 


With these many preliminaries taken care of, let’s F8 back to the MENU and 
make our first real call to the other computer, taking it from the top. 

1) Select TELCOM from the main menu. 




3) Press F2 


ENTER 


or just 


ENTER 


to auto-dial the number. 


4) When you hear the tone and the bottom line on the display changes 
so it reads: 




the connection has been made and the other computer is waiting for 
us to “Log In.” 



WAIT 

HERE 
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5) Press the 


CTRL 


and 2 keys. 


CTRL 


2, the 


Note: if SEUjE 1S accidently pressed before pressing | 
system may ask for the “Host Name.” If this should happen, answer 
with C I S It just tells the other computer that we are 

using CompuServe Information Service. The normal procedure is to 
simply use Wl;ll 2- 


6) The system asks: 


User ID: 


70076 ,174 


ENTER 


(Enter your own 8 digit 
ID number) 


Password: KNIGHT/SLEPT 


ENTER 


(Enter your 
own password) 


Note: Most other computers do not “echo back” the Password so 
someone looking over your shoulder can’t read it. Of course, we 
can’t read it either, so don’t make a mistake typing the Password. 
This system will accept the Password in either upper or lower case. 


7) CompuServe sends the local time and date and allows us the 
opportunity to change the CompuServe system configuration to 
match ours. The CompuServe computer will talk to our Tandy 200 
in the VIDTEX configuration so type: 


1 


ENTER 


8) CompuServe sends a welcome message and a short commercial. 
Press 22H32 at the check point. It then advises us to read the 
Service Terms found in the packet and pops the big question by 
way of a 3-choice menu: 


Do you want to: 


1 As ree to Service Terms 

2 Read Terms on-line 

3 Exit the Service 


Enter choice: 
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Select item 1 . We certainly don’t want to consume any of our free 
hour reading the Terms, so let’s move on. 

9) CompuServe wants to make sure we agree to the Service Terms by 
asking us to type the word AGREE. Do so at this time. 


10) Continue pressing 13^113:1 through the lengthy explanation of the 
password scheme and through more advertising until Compu- 
Serve’s Main Menu is listed. 


C o m p u S e r u e P a 3 e C I S - 1 

1 Home Services 

2 Business & Financial 

3 Personal Computing 

4 Services for Professionals 

5 The Electronic Mall ( tin) 

B User Information 
7 Index 

Enter your selection n u mber > 
or H for more information* 


Let’s hurry right on to the next Chapter and explore a few of them. 
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Reading the Mail 


T 

■ here is a lot of information flowing between the other computer and our Tandy 
200, much of it faster than we can read. The CompuServe Main Menu 
is a good example of how there are more items to select than we can hold on the 
display at one time. 


Press FI . The Tandy 200 displays the Previous 16 lines. They are stored in 
memory at all times for recall and review. The OTHER computer has no idea 
this is happening and really doesn’t care. It has its own set of problems. 


Press 


ENTER 


(or any other key), and the latest set of 16 lines is displayed. How 


then do we recall the previous 16 lines? 


Three options are available. 

1 ) Reread the previous CompuServe menu by typing M (for MENU) or 

2) Store the information inside the Tandy 200 for “off-line” reviewing 
at a later time or 

3) Send the information to a printer for a hard copy. 
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Options 2 and 3 are often the best solutions since they allow us to review the 
information at our leisure. As long as we remain hooked to anOTHER computer, 
its meter is ticking away and perhaps, long distance charges as well. 


Down Loading 

Accepting information from another computer and storing it for later retrieval is 
called DOWNLOADING. Its opposite, sending a message from our Computer 
to the other one is called UPLOADING. We will learn to UPLOAD in the next 
Chapter. 

Let’s review CompuServe’s Menu item 5, USER INFORMATION. Since we 
may want to study this later, let’s first open the Tandy 200 memory for a 
DOWNLOAD to store it. Press F2 then answer the F i 1 e to Download 
question by typing: 


ENTER 


...a descriptive name for the file which will hold what we are saving. 

Notice the shading around the word Down on the display. As long as Down is 
shaded, all information entering the Tandy 200 is being stored in memory. Storage 
will continue until we either press F2 again to stop the DOWNLOAD (it does 
not stop the data from entering the Computer) or until the Tandy 200 runs out 
of memory. All isn’t lost if the Tandy 200 runs out of memory. It simply drops 
out of the DOWNLOAD mode, saving all data received to that point. Select 
option: 


a 


ENTER 


What’s this, another Menu? Yes. CompuServe is designed around many menus 
in a “tree structure.” Select a topic that looks interesting and read the information 
as it is downloaded. Continue selecting other menu items and pressing 
at the various checkpoints. 


ENTER 


When you have seen enough, press F2 to close the Tandy 200 file named USER. 
The shading disappears indicating the Download has ended. If you want to save 
more incoming information, you can press F2 and give it another file name. Be 
sure to select a new file name. If you used the same file name again, all data 
previously stored under that name would be erased. But for now, let’s disconnect 
from this other computer and review what we have already received. 



Reading the Mail 91 


Press the 
it sends: 


CTRL 


and H keys to tell the other computer that we want to quit. After 


Interrupt » H for HELPf 


type: 


ENTER! 


CompuServe will bid a fond adieu and report the amount of time you were hooked 
to their computers. Record it to keep track of how much time was used. 

Press F8 (Bye) and answer: 


Disconnect? with a Y 


ENTER 


Press F8 to return to the Main Menu and select the USER file. 


Observe how everything received during the Download and everything that was 
typed in on our keyboard when the memory was open is in the text. We are free 
to EDIT the text and make a hard copy , just as we would with any other TEXT file. 

It’s generally a good idea to use the Download feature whenever accepting a 
message from another computer. Superfluous information can always be deleted 
later. 


Echoing to a Printer 

It is possible for the Tandy 200 to Echo data it received to a printer by using the 
F5 key. This Echo function is different than the type of Echoing we discussed 
earlier when the data is Echoed back to us from the other computer. 

Notice that the Echo command does not appear in the label line until F5 is pres- 
sed. The Tandy 200 remains in the Echo mode until F5 is pressed again. 

We don’t want to waste any more of our “free hour” at this time, so read the rest 
of this Chapter, then we’ll learn how to Upload in the next one. 


Your Own “Other” Computer 

If you feel a little flustered and frustrated by our experience on the other computer, 
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don’t feel alone. These services tend not to be written for casual users and are 
often downright hostile. It’s easy to get lost in their extensive branching system 
and not know what else to do but hang up. There’s not much that can be done 
about it, except own your own other computer. 


That idea is not at all farfetched. CompuSoft Publishing has had its own host, 
or other microcomputers, for over 7 years. There are many options available 
today, but CompuSoft’s host consists of a plain old microcomputer with readily- 
available host software simplified and customized to be more friendly. 
This in-house system is much easier to use than the one we just exercised and is 
used on a 24 hour 7-day week basis. Writers, researchers, sales staff and sub-con- 
tractors use it to pick up and send their “mail” when convenient, rather than be 
disturbed at other times. As long as the phone connection is good, it works just 
great! 

On trips to Europe I have used a Tandy Model 100 to maintain contact with the 
CompuSoft HOST from Amsterdam and Deventer, Holland; Uppsala, Sweden; 
plus Oslo, Stavanger and Bergen, Norway. Also, from Hong Kong, Tokyo and 
Johannesburg. It is accessed on a daily basis from pay telephones and hotel rooms 
around the country. No problem! 

Your host might have the same “closed computer” rules. Since CompuSoft’s is 
strictly for business, the phone number is unlisted, users have their own ID#’s 
and PASSWORDS, and guests are not welcome. Greeting messages at Sign-On 
time have been deleted, and it doesn’t waste either phone or staff time exchanging 
niceties. As a business tool, it’s powerful and pays for itself quickly. 


Other OTHER Systems 

There are literally hundreds of other host computers run by computer clubs and 
hobbyists and which are open to the public. Since they are available to use 
without charge, the sponsors have no obligation to serve anyone’s specific needs, 
but if you wish more experience with other computers, it’s suggested that you 
give them a try. 

These public hosts are typically known as bulletin boards, public message systems, 
net-works and by a score of other names and acronyms. They are found in 
virtually every medium-to-large city in America and in many foreign countries. 
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Space doesn’t permit listing the systems active today, and such a list would 
become quickly dated. If, however, you are interested in pursuing this alternative, 
CompuSoft has agreed to mail a 10-page listing at its cost. Send $5.00 to cover 
compilation, printing, postage and handling to: 

CompuSoft Publishing 
ATTN: Public Computers 
Box 19669 

San Diego, CA 921 19 

Sorry, we can’t provide additional consulting in this area except to point you in 
the right direction, as above. 
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Sending a Letter 


t 

1 he CompuServe computer does not allow first time users to leave messages. 
The Uploading feature is not available in the first “free” hour. We can still 
practice Uploading however, even though the message will not be stored there. 
Sort of like Demosthenes practicing orating to the waves. 

The purists among us ask the good question, “If we can’t upload to CompuServe, 
why spend computer time hooking up to it?” 


Answer. We need the handshaking” which it offers in order to put our Tandy 
200 in an Upload mode. Without the “tone” from the other end, the soft keys 
will not be reprogrammed and the Upload feature will not be available 
OK? 

Preparing the Message 

The message we send can consist of anything. If you still have the letter we 
wrote and practiced on in the TEXT Chapters, it will do fine. Its name was 
OFFICE. (If you don’t have it, write another short letter OFFICE.) 

Select TELCOM and Log-on CompuServe again using the procedures we learned 
in Chapter 1 1 . 
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Press in response to the configuration question and at each check point. 

When the 2-choice menu is displayed, 

1 SIGN UP FOR CONTINUED SERVICE 

2 GO TO MENU OF SERVICES 

again select item 2. 

Press the F3 (Upload) key after the Menu is displayed, and answer the: 

File to Upload? 
question with: 

OFFICE 

The Tandy 200 responds with a question: 

Width: 

...the same question asked as when PRINTing to paper. 

Most hosts are limited to the number of characters they can accept before receiving 
an end-of-line indicator, such as an l3flfcl3:L The Tandy 200 handles this require- 
ment by letting us specify how many characters we want to send before declaring 
an “end-of-line.” To keep our message compatible with the Tandy 200’s 40 
character display width, answer the question with: 

40 HE Hifs l 

As soon as we specify the width, a shadow is cast over the Up indicator. At this 
point the OFFICE file is sent to the other computer, a character at a time. 
The shadow remains while the message is being sent. When the shadow dis- 
appears, the message has been sent. If the message is sent to another computer 
that does not echo the text back for our viewing, we have to rely on the shadow 
to tell us when the message has been sent since we won’t see it as it leaves the 
Tandy 200. 
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The Tandy 200 doesn’t understand the reception it’s getting from the other 
computer so it buzzes that something strange is going on. What is being displayed 
is a series of responses from the OTHER computer. It can’t figure out what we 
are trying to tell it to do. 

Anything typed on the keyboard at this point will be added to our message. 
If we were actually sending this message to a computer that was paying attention, 
this would be a good time to add a P.S. 

Anyway, that’s how Uploading works. 

By now we have the other computer so confused it’s best to simply bail out by 
hanging up the phone. 

Press F8. 

Answer 


Disconnect? 


by typing Y 


ENTER 


The Tandy 200 hung up the phone, and the other will recognize that we have 
left and will disconnect itself. 


Advanced Features (Optional) 

The average user can use TELCOM just fine with what we have learned so far 
and what we will learn in the next Chapter. In the interest of completeness, 
however, these advanced dialing and logging features are explained. 


Auto Log-On 

Press F8 then select ADRS ♦ DO. Change the entry to read: 

CIS :283-6021< (Use your number.) 
then add this line: 

= - C?D70076 » 174" M?dK NIGHT /SLEPT A M> (Insert your ID# 

and Password.) 
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When the Tandy 200 reads the < sign following the phone number, it enters the 
“auto-log-on” mode. It continues sending the information after the < until it 
finds a >. Now, let’s analyze that second line. 


Auto-Log Codes . , . 4 . 

When the Computer enters the auto-log-on mode, it uses 4 special characters to 
control the auto-log-on message. They are: 


= Pause 2 seconds. 

A Send the following character as a “control” character. 
? Wait for a specified character from the HOST. 

! Send the next character, including any of these 4. 


Our new line starts right off with = . This tells our Tandy 200 to pause 2 seconds 
before sending the next character. We can use more than one equal sign here 
since each one gives us an additional 2 seconds delay. One is adequate time for 
this particular host to get set to receive our ID#. 


When the CompuServe HOST answers the phone, we have to press Blil! S 
before it will ask for our ID#. Looking at the ASCII chart in Appendix A, we 
find ASCII code 3 is the same as Control C. The A symbol before the letter C 
tells the Tandy 200 to treat the letter following (in this case “C”) as a control 

character. 


If there was a need to send two or more consecutive 
preceded by a ~ . For example: 


CTRL 


codes, each code must be 


A C A XM 

would tell the Tandy 200 to send a Control C, followed by a Control X, followed by 
the letter M. 


?D tells the Tandy 200 to wait until it receives the letter D back from the host. 
Once it sees the D in ID:, it continues the auto-log-on sequence by sending the 
8 digit ID number. 


The ID number is followed by A M. Sending a Control M (ASCII 13), is the same 
as pressing the IJgHdil key. (Check the ASCII chart if you’re confused.) We’re 
simply letting the Tandy 200 do it for us. 


At this point we could have told our Computer to wait a few seconds for the 
CompuServe host to respond with the Password question. But, since we’re not 



DO 

DON'T JUOT^IT . 

THE RE - RESPOND 
TOVOUR HOST l 


- SH«m 


NOT UNTIL 
I OETTHE 

PA^WOPDl 


swm 
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sure how many seconds delay this may take, we used the ? command followed 
by the letter d. This tells the Tandy 200 to wait until it receives the first d (in 
the word Password) before continuing the log-on sequence. 


The Computer will only recognize a lower-case d. If the HOST were to send a capital 
letter D, it would be ignored and the pause would continue until a d was received. _ 


When the d in Password is received, the Tandy 200 sends our personal Password. 
We could have selected any letter in Password, but it’s best to select one near 
the end to avoid sending our answer before the system is ready to receive it. 


After our password is sent, another 
our password into the system. 


CTRL 


[21 is 


sent to tell the HOST to 


ENTER 


What would happen if we wanted to send a question mark after our Password? 


= -CfD7007G , 17 fl*M?dKNIGHT/SLEPT?*M> (Use your 

ID# and Password.) 


The ? is a legitimate character that could be used as part of the Password. However, 
the Tandy 200 would see the ? as a code to wait for the following character ( ) 
before continuing through the sequence. By placing our fourth log-in command 
(!) before the question mark, the log-on routine sends ? as if it were any o e 
character. 


= A C7D70076 tl74‘"M?d KNIGHT/SLEPT !_?''' f1< 

Check your completed log-on message to make sure it looks like this sample: 

CIS : 283-6021 < 

--C^D7007Sii7a-M?dKNIGHT/SLEPT-M> (Use your ID# 
u . u / v v and Passwor d.) 


Then press F8 to return to the Mam Menu. 
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Putting Auto-Log-On to Work 

Select TELCOM, and press FI The display will show: 


CIS : 2S3-S021 < > 


Notice that our log-on message does not display all the automatic and private 
information we placed between the <> signs. The entire log-on message is 
purposely left off the display to protect its confidentiality. 


Go For It 


When you press H2H32 the next time, things happen fast, so watch 
carefully. 


the display 


When the dialing sequence is completed, the Computer buzzes as the phone rings 
and when the tone is received from the remote modem. If you hear a pulsing 
type buzzing sound, the line is busy. Press 3UIai BREAK, wait a few minutes 
and start the sequence over by pressing FI . 


Once the connection is made, the auto-log-on sequence begins. No sooner are 

the questions received from the CompuServe Computer, than they are answered 
by our Tandy 200. 


When you feel comfortable with what we’ve learned in these last 3 Chapters, use 
up the remaining time to explore different areas in the CompuServe Menus! 
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Talking Computer 
to Computer 


T 

I he Computer Handshake 

In order for any two computers to converse they must speak the same language 
and be able to coordinate who speaks when. Only one can talk at a time. Most 
computers, terminals and printers are equipped with standard connections and 
conversational instructions known as the RS-232C Serial Interface. 

Even though the connections and voltage levels used are standard, there are many 
different “protocols” that can be selected by the communications software. Both 
systems must have their status configured the same way so they have what is 
known in the biz as a proper “handshake.” Handshaking means both systems 
have agreed on a mutual set of communications formats which allow them to talk 
to each other. 


Establishing a Common Language 

The Tandy 200 is capable of changing its software configuration to match that 
of just about any other RS-232C system. All that is needed is to determine what 
the other system is using. For this example, we will hook our Tandy 200 to a 
TRS-80 Model III with the Radio Shack Videotex software (26-1588). If you 
are using any other computer or communications software, refer to its operation 
manual for its RS-232C parameters and software protocols. 
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Turn on the Tandy 200 in TELCOM. Using F3, change the status to: 

38nidni isfaiiaa 

Looking at the Communications Parameter Chart in Appendix D, we can see 
what these letters and numbers represent. 

3 Tells the Tandy 200 to send the data direct through the regular (not 
phone) RS-232C connector in the back. 

8 Send each character using 8 bits of data. 

N No error checking bit (parity) to be used. 

1 Send 1 pulse (bit) at the end of each character to indicate the end. 

D Disable remote control of data output (XON/XOFF Codes.) 

N Accept all control characters (Normal condition.) 

I Ignore line feed signal from remote computer. Generate a line feed 
each time a carriage return is received. 

The Originate/ Answer code and dialing rate are not specified since we will not 
be dialing a telephone. 

A special back-to-back (“null modem”) adapter (26-1496) must be used when 
connecting the standard RS-232 cable (26-1408) between the Tandy 200 and the 
Model III. We found that it’s easier to use the standard cable (26-1408) and 
simply reverse the leads on pins 2 and 3 on either connector. This way only one 
cable (and no adapter) is needed to connect the Tandy 200 to the Model HI. Make 
the connections as shown in Figure 1 1 . 


Figure 11 


NULL MODEM 
ADAPTER 
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Once you have the host other computer in its Terminal mode, its communication 
configuration should be set to: 

Baud Rate = 300 
Word Length = 8 
Parity = none 
Stop Bit = 1 

The Videotex Communication Software boots up in this configuration. It can 
communicate with the Tandy 200 as-is. If you are using a different software 
package or computer, check its configuration and change it as necessary. We 
want to make sure we are all looking at the same configuration before we make 
any changes to the Tandy 200. If you’re not sure how to make the changes on 
your host computer, you can leave it as-is. Once you learn how to do it on the 
Tandy 200, you can set it to match the other guy. 


ENTER] 


The Tandy 200 should now show: 


38N1DNI t0* 10 pps 
T e 1 c o m : C ] 

If you accidentally enter a code that the Tandy 200 can’t accept, it will let you 
know by sending its error beep. In fact, most any wrong move in the Tandy 200 
TELCOM results in a beep. 

When the computers are connected to each other and both computers are in the 
Terminal mode (F4 on the Tandy 200), type a few words on each keyboard. You 
should see the typing displayed on the opposite computers. It’s pretty exciting! 


Half Full or Half Empty? 

If the information being typed on the Tandy 200 is not showing up on its own 
display, this indicates the host computer is not feeding an echo back to the Tandy 
200. If the host does not have this feedback feature, we can simulate it by pressing 
F4 on the Tandy 200. Pressing F4 toggles between “Half and Full duplex” send 
mode. 

Full duplex is the preferred mode of sending data. This means that the Tandy 
200 is not listening to itself. Anything sent is not displayed until echoed back 
from the other end. This ensures that the data was received as we sent it. 
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Half duplex is used when the data is not echoed back. By selecting Half, the 
Tandy 200 displays each character as it is sent as well as each character received. 
Its value lies solely in letting us know where we are in the message being sent, 
not in ensuring its accuracy of reception. 

Direct Uploading 

When satisfied that both computers are talking to each other, and both are listening, 
press F3 (Up) on the Tandy 200. When the display shows: 

File to Upload? [] 


enter the file name 
200 responds with: 


OFFICE 


ENTER 


If you have removed that file, the Tandy 


No file 

Upload aborted 


If this is the message you received, better go back and reenter the letter or another 
name you have it stored under. 

If this worked properly, the message: 

Width: CD 


appears. To see the effect of this question, type: 


ENTER 


The shadow over Up indicates it is Uploading. Watch the screen on the HOST. 
The Tandy 200 is sending a Carriage Return after each line is 20 characters long. 

When the shadow goes out and the flashing cursor returns, the letter has been sent. 


Try Uploading the message using different Width values. If 02E02 pressed 
without entering a Width value, the Tandy 200 sends the data, entering Carriage 
Returns only as they actually appear in the text. 
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Direct Down-Loading 

Reverse the procedure by pressing F2 (Down) on the Tandy 200. Answer the 
File to Download? question by typing: 


DATAIN 


ENTER 


The shadow over Down indicates the Tandy 200 is storing all data that enters. 


After you have typed in some data from the host computer press F2, turning 
Download off. The DATAIN file can now be selected from the Main Menu to 
see what was received. 


High Speed Data Transfer 

Depending on the capabilities of the host computer, the data transfer rate can be 
greatly increased. 

Following the instructions in your host computer’s communications software 
manual, set its transmission speed to 1200 Baud. 

Press F8 on the Tandy 200. The display shows: 

Disconnect? C ] 


Answer by typing Y 


ENTER 


and after Telcow: 11 returns, press F3 and enter this new Status: 


ENTERI 


The only parameter changed is the first one. The 5 tells the Tandy 200 to send 
the data at 1200 Baud through the RS-232C port as before. 

Repeat the Upload and Download steps above and watch the difference in 
transmission speed. Higher transfer speeds are limited largely by the length of 
cable between computers. 1200 baud is very fast and more than adaquate to 
quickly fill the memory of a Tandy 200. 
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Between Tandy 200’s 

By using the special “null modem” cable arrangement described earlier, we can 
interface the Tandy 200 to another through the RS-232C Port. 



Figure 12 


In order for 2 computers to communicate properly, they must both be set to the 
same configuration. The configuration itself is not important, as long as they are 
the same. For example, set the ST AT in both to: 

Stats 58N1DNN 


Press F4 to enter the TERM mode. Press F4 again to switch from sending in 
Full Duplex mode to Half Duplex. This allows the character to be echoed on the 
display as it is being typed. 

Type this message: 


TESTING 1 2 3 


ENTER 


If all went well, we should have the words “TESTING 1 2 3” on the display at 
both computers. If this is not the case, then check to make sure both computers 
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have the same communication configuration (including HALF duplex), and try 
the test again. 


Notice t hat the Tandy 200 does not send a line-feed after we press a carriage return 
It assumes that the other computer will do the line-feeding. By changing 
the status in the other computer to: 


58N1DNI 


it will advance one line each time a carriage return signal is received from our Com- 
puter. For our Tandy 200 to add a line feed each time it receives a carriage 
return, its status must also have the last N in the status changed to an I. 


We can also send a line-feed function to the other computer by typing J] 
before or after pressing Do it a couple of times, and watch the cursor 

drop to the next line on both computers. 


At this point, we are able to “chat” in TERM mode and Upload or Download 
files between the two Tandy 200s. 


Now go out and talk to somebody — CompuServe, the office computer, your 
friend next door or an associate on the other side of the world. For you, Telcom 
may be the most important thing the Tandy 200 does. 



Learning 

Tandy 200 
BASIC 








BASIC’s Basics 


/V 



Getting Ready 



rom the moment we turn it on, our Tandy 200 follows a well-defined set of 
rules for coping with us, the “master.” This makes it an exceptionally easy 
Computer to use. 

So far, we have learned to use TEXT, SCHEDL, ADDRSS and TELCOM, 
programs written by others. We can also write our own programs, opening up 
unlimited possibilities for meeting specific needs. Doing so is called COMPUTER 
PROGRAMMING. The 50 Chapters in Book Two will teach you how to write 
“custom” programs in the BASIC computer language. 

Turn the Tandy 200 ON, place the cursor over BAS I C , press and watch 

it say: 


TANDY 200 Software 
Copt* 1985 Microsoft 
19590 Bytes free 
OK 

$ (flashing prompt) 
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If you are using the Disk/Video Interface unit, skip immediately to Appendix I for 
special instructions and meet the rest of us back here in a few minutes. 


The number of Bytes free will vary with the amount of memory installed and the 
space required by other programs and files being stored at the time. 


What Is A Computer Program? 

There are many “computer languages” in which we can write programs. BASIC 
is an easy one to learn, and is by far the most popular. Our BASIC Interpreter 
is, itself, a very complex program written by others, but its very name tells us 
how easy it is to use. 

Let’s write a simple one-line program to let the Tandy 200 meet us. Be sure the 
last line on the display shows a prompt. 

Type in the following line, exactly as shown: 

10 PRINT "I ARE A COMPUTER PROGRAMMER" 


Do not hit the 


ENTER 


key yet! 


Since all BASIC Statements and Commands are upper case, we may just as well 
press the IWMH key and leave it down for the duration, even though the 

Computer converts the words to upper case automatically. There’s plenty to learn 
without confusing upper and lower case at this time. 


If you made a typing error, don’t worry, 
the word processor. (After pressing the 
complex.) 


Just use the [»H1 key as with 

3JS13i] key, editing becomes more 


Study very carefully what we have typed: 

1. Did you enclose everything after the word PRINT in quotation 
marks? 

2. Are there any extra quotation marks? 


If everything’s okay, press 
what’s next?" 


ENTER 


. The i prompt reappears, telling us “Fine — 



CO AHEAD, POKE 
AWAY- I WONJ'T 
BYTE* "I ARE 


A COMPUTER 




If we press I3fllia:l again, the display will read: 

i 

As long as the bottom item on the display is the flashing prompt, we know it’s “our turn.’ 


If It’s Too Late 

If you found an error after the key was pressed, the B33 key 

cannot correct it. The best way to change it is by retyping the entire line, cor- 
rectly. When the key is pressed, the new Line will replace the old one 

since they both share the same starting number (in this case, 10). In a few 
Chapters we’ll learn how to “EDIT” out errors instead of retyping entire lines. 

“Allow Me To Introduce You” 

Let s tell the Computer to “execute” or RUN our program. Type: 

RUN 

and press 32 HM 2 - 

If you made no mistakes, the display will read: 

I ARE A COMPUTER PROGRAMMER 

If it doesn’t work, try typing RUN again. If RUN still doesn’t produce the 
statement, there’s something wrong in the program. Type NEW la?tia:l to clear 
it out, then type it in and RUN again. 

If it did work ~ let out a yell ! 

“/ are now a REAL computer programmer!” 

This is very important, because now that you’ve tasted success with computer 
programming, it may be the last you are heard from in some time. 
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In Summary 

Note that the word PRINT is not displayed, nor is the Line Number or the quotation 
marks. They are part of the program’s instructions and we didn’t intend for them 
to be printed. Everything inside the quotation marks is printed, including blank 
spaces and the period. 

Type the word RUN again and hit 

Type RUN IJEMasl to your heart’s content, watching the magic machine do as 
it’s told. When you feel you’ve got the hang of all this, get up and stretch, walk 
around the room, look out the window -- the whole act. You’ll soon be hooked 
on programming and won’t have time for such things. 


Learned in Chapter 1 


Commands 

Statements 

Miscellaneous 


PRINT 

i! prompt/cursor 

NEW 


M " quotation marks 

RUN 


Hill^dkcv 



BREAK key 


Whether typing in a program, or giving direct commands like RUN, we have to 
hit IdJUdsl to tell the Computer to look at what we typed, and act ac cordingl y. 
Commands (like RUN) are executed as soon as we type them in and press Hi lldi]- 

Statements (like PRINT) are put into programs and are executed only after we 
type the RUN WHil command. 

We’ll put a review summary like this at the end of each Chapter. Use it as a 
checkpoint to make sure you didn’t miss anything. 
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It is possible during programming to “lose control” of the Computer so it won’t 
give an OK message when you press To regain control, just press 

and BREAK simultaneously. If that doesn’t work, push the RESET button (in 
the back). If that doesn’t work, turn the Computer OFF for 10 seconds, then 
turn it back ON. 


■Chapter 2 


More Programming 


f T e now have a program in the Computer. (If you turned it off between 
Chapters, fire it up again and type in Line 10 from Chapter 1.) It’s only a 
one-Liner, but let’s expand it by adding a second Line. In BASIC, every Line 
in the program must be numbered, and the instructions are executed in order from 
the lowest Line number to the largest. Type: 

20 PRINT "YOU NAME A COMMAND# MASTER?" 

Check it carefully — especially the quotation marks, then: 


RUN 




Have you noticed that we use 0 for the number zero -- so we can distinguish between 
the letter O and number 0? The Video Display does it this way — and it’s standard 
throughout Computerdom. 
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If all was correct, the display will read: 

I ARE A COMPUTER PROGRAMMER 
YOU NAME A COMMAND > MASTER? 

If it ran OK, answer the question by typing: 


ENTERI 


Oh — sorry about that! It “bombed”, didn’t it? The display said: 

?SN Error 

We deliberately “set you up” to demonstrate the Computer’s ERROR trouble- 
shooter. The Computer is smart enough to know when we’ve made a mistake in 
telling it what to do, and it prints a clue as to the nature of the error. 

In this case, the ? tells us that it doesn’t understand what we are saying. SN 
stands for the word “syntax” (an obscure word that refers to the pattern of words 
in a language). Error means we have made one. The Computer is expecting a 
new program Line or a BASIC command. A bit later we 11 learn how to make 
the Computer accept a “YES” or “NO” and respond accordingly. 

There are many possible errors we can make, and in good time we will learn to 
understand the built in “ERROR CODES. 


A complete listing of ERROR CODES is provided in Appendix E. 

Meanwhile, there is one other important ERROR situation which we should be 
able to recognize to pry ourselves out of accidental trouble. Let’s retype Line 20 
and deliberately make a spelling error: 

20 PRIMT "YOU HAUE A COMMAND » MASTER?" 


and RUN 


ENTER! 



OU,COME NOW. I HATE 
TO *3EE A fiROWKl MAk) 
&2y„. &O YOU ' BOMB - 
ED' — BET!^ <S I VE IT 
ANOTHER 4HOT / 



More Programming 121 


We get the same ERROR message: 

?SN Error in 20 

We have misspelled PRINT, a specific BASIC word. Computers are extremely 
fussy about these things. They cannot stand ambiguity. Retype Line 20 to correct 
the misspelling in PRIMT before continuing on. 

And The Program Grows 

It is customary, traditional (and all that) to space the Lines in a program 10 num- 
bers apart. Note that our 2-line program has the Line Numbers 10 and 20. 
The reason ... it’s much easier to modify a program if we leave room to insert 
new Lines in between the old ones. There is no benefit to numbering the Lines 
more closely (like 1,2, 3, 4). Don’t do it. 

RUN again and look at the display. What if we’d rather not have the two lines 
printed so close together, but would like some space between them? Type in the 
new program Line: 

15 PRINT 13g lTM: i 

Then: 

RUN 

It should now read: 

I ARE A COMPUTER PROGRAMMER 


YOU HAUE A COMMAND * MASTER? 


Note: To make this book easier to read, we are using more space between all our 
program lines than you actually see on the display. 
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Looks neater, doesn’t it? But what about Line 15? It says PRINT. PRINT What? 
Well — print nothing. That’s what followed PRINT, and that’s just what it 
printed. But in the process of printing nothing it automatically inserted a space 
between the PRINTing ordered in Lines 10 and 20. So that’s how we space 
between lines. 

Didn’t that ro om between Lines 10 and 20 come in handy? 

Another important program statement is REM, which stands for REMark. It is 
often convenient to insert REMarks into a program. 

Why? So you or someone else can refer to them later, to help remember compli- 
cated programming details, or even what the program’s for and how to use it. It’s 
like having a scratch-pad or notebook built into the program. When we tell the 
Computer to execute the program by typing RUN 02SIMSJ, it skips right over any 
numbered Line which begins with a REM. A REM statement has no effect 
whatsoever on the program. Insert the following: 

5 REM THIS IS MY FIRST COMPUTER PROGRAM 

Then: 

RUN MSMara 

The display reads just like the last one, totally unaffected by the presence of Line 
5 . Did it work that way for you? 

Well, this programming business is getting complicated and I’ve already forgotten 
what is in our “big” program. How can we get a listing of what our program 
now contains? Easy. A new BASIC command. Type: 

LIST 

The display should read: 

5 REM THIS IS MY FIRST COMPUTER PROGRAM 
10 PRINT "I ARE A COMPUTER PROGRAMMER" 

15 PRINT 
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20 PRINT "YOU HAUE A COMMAND t MASTER?" 

We can LIST the program any time the prompt appears on the display. 

Where Is The End Of The Program? 

The end of a program is, quite naturally, the last statement we want the Computer 
to execute. Many Computers require placing a program Line containing the word 
END at this point, so the Computer will know when to stop. With our Tandy 
200, an END statement is optional — we can put it in or leave it out. Remember 
though, if we want to RUN our BASIC programs on fussier Computers, we’ll 
probably need the END statement. 


When we get into more complex programs, we’ll use END statements to force the 
Computer to stop at specified points — so actually, END comes in very handy even 
with the Tandy 200. 

Let’s take a close look at END. By the rules governing its use, most dialects of 
BASIC which require END insist that it be the last statement in a program, telling 
the Computer “That’s all, folks.” By tradition, it is given the number 99, or 999, 
or 9999 (or larger), depending on the largest number the specific Computer will 
accept. Our Tandy 200 accepts Line numbers up to 65529. 

Let’s add an END statement: 

Type: 

99 END l=MH=j;l 

Then: 

RUN 1 

The sample run should read: 

I ARE A COMPUTER PROGRAMMER 


YOU HAUE A COMMAND t MASTER? 




1 24 Chapter 2 


“Why didn’t the word END print?” Answer: Because nothing is printed unless 
it is the “object” of a PRINT statement. So, how could we make the Computer 
print THE END at the end of the program execution? Think for a minute before 
reading on, and typing the next Line. 


98 PRINT "THE END." 


and RUN 


ENTER 


mm 


This assumes that Line 98 is the last PRINT statement in the program. We now have 
an END statement (Line 99) and a “THE END” PRINT statement (Line 98). 98 says 
it; 99 does it. 


Erasing Without Replacing 

Just for fun, let’s move the END statement from Line 99 to the largest usable 
Line number our Tandy 200 will accept, 65529. It requires two separate steps. 

• 

The first is to erase Line 99. Note that we’re not just making a change or correcting 
an error in Line 99 - we want to completely eliminate it from the pro- 
gram. Easier done than said: 

Type: 


99 BSOB 

The Line is erased. How can we be sure? Think about this now. Got it? Sure — 
“pull” a LISTing of the entire program by typing: 


ENTER 


The display should show the program with Lines 5, 10, 15, 20, and 98. 99 should 
be gone. Any entire Line can be erased the same way. 

The second step is just as easy. Type: 


G5529 END 


ENTER 


.. .and the new Line is entered. Pull a listing of the program to see if it was. Was 
it? Now RUN the program to see if moving the END statement changed anything. 
Did it? It shouldn’t have. 
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Other Uses For End 

Move END from #65529 to Line #17, then RUN. 

What happened? It ENDed the RUN after printing Line 10 and a space. RUN 
it several times. 


Now move END to Line 13 and RUN. Then to Line 8 and RUN. 


Do you see the effect END has, depending where it is placed (even temporarily) 
in a program? Feel like you are really gaining control over the machine? You 
ain’t seen nothing yet! 

Learned in Chapter 2 


Commands 


Statements 


Miscellaneous 


LIST 


PRINT (Space) 

REM 

END 


Error Messages 
Line Numbering 



Using the EDITor 
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A 

# % valuable capability of our BASIC Interpreter is its EDITor. Its purpose is 

as simple as its name and it is quite similar to the TEXT EDITOR. It lets us 
make changes in a program without retyping an entire Line. 


Clear out the current program with NEW 
and all): 


ENTER 


Then type in this Line (errors 


10 PRINT "THIS CONFUSER ARE GRATE!" 

...and RUN. 


ENTER 


It should RUN just fine, and if that’s the way you usually talk you may wonder 
what there is to EDIT. If, on the other hand, you wish to change the sentence 
to something like: 


THIS COMPUTER IS GREAT! 

then we have a good excuse to do some EDITing. 

In the first 2 Chapters we eliminated errors by just retyping the entire Line, hoping 
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we didn’t make more mistakes than we eliminated. This particular example needs 
so many changes it might be just as easy to retype it, but our purpose is to 
“exercise” the EDITor, so type: 

edit 10 agfl raa 

and see what happens. 

Hokay...we get: 

E10 PRINT "THIS CONFUSER ARE GRATE!"* 
a good sign it’s in the EDITor mode. 

Being in EDITor Mode isn’t like being in BASIC. The EDITor is not part of the 
BASIC language. It’s a special “sub-program” we call up from BASIC using the word 
EDIT. To exit the EDITor when done and return to BASIC we will hit F8. Then, 
from BASIC, if we hit F8 we will exit BASIC and return to Menu ... but we’re not 
ready for that yet. 


Since we want Line 10 to read THIS COMPUTER IS GREAT!, let’s first 
change the word ARE to IS. Tap the 4 key slowly until the cursor is over the 
first letter of the word ARE . Press the filial and keys at the same time, 
3 times, and delete the word ARE . Type I S to complete the change. 

Nothing new so far ... just like TEXT EDITing. In fact, press the LABEL key 
and see that in EDITor mode, the soft keys are the same as in TEXT. 


Advanced EDITing 

Now press the [Nl:» key at the same time as the 4 key to reposition the cursor 
at the beginning of Line 10. Press FI and SG3JHMI3 t0 search for URATE and 
we’ll change it to GREAT . Press 4 twice to position the cursor over the A and 
type in E . The Line now reads: 

10 PRINT "THIS CONFUSER IS GREATE ! " 

Press 4 twice more to move the cursor over the E that we want to remove, and 
l»I=U to delete it. 



Ti-JI^ COMPUTER 
CREATE." ? <? 
WOW YOU'RE 
G&jujly mailin' 

PROiSRE^ I 
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Now we need to change CONFUSE R to COMP UTER . Press Bli H ♦ to return 
the cursor to the beginning of the Line. Type flilljj I three times to put the 
cursor on the first letter of CONFUSE R. Press * twice and type M followed by 
fcUHJl nrai . This inserts the M (which we want) and deletes the N (which we 
don’t want) . Follow the same procedure to change the F to a P and the S to a T . 


Line 10 finally looks like this: 

10 PRINT "THIS COMPUTER IS GREAT! 


Press F8 (EXIT) to leave the EDIT mode. 


PrpRsinpgira twice does the same thing. 


We went into a lot of detail to show that this BASIC EDITor is really just a TEXT 
editor. This allows us to call up part or all of a BASIC program at one time. 

Add: 


20 REM * EDIT PRACTICE * 
30 REM * EDIT PRACTICE * 

Then: 


ENTEFT 

E^S 


EDIT 20-30 


ENTER 


and EDIT Lines 20 and 30, just for practice. 
Press F8 to return to BASIC and type: 


EDIT 10- 


ENTER 


telling the Computer to EDIT Line 10 and all following Lines. 


EDIT Shortcuts 

We have just seen how to edit one line, or select a group of Lines for editing. 


To load the entire program into the EDITor, simply type EDIT 


ENTER 
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By pressing the up/down/right/left arrows, we can move the cursor to any part 
of the program for editing. 

Press F8 to exit the EDIT mode. Notice the shaded Wait flashing on the bottom 
left of the display. The Computer is taking some time to rearrange our program 
in memory. As we edit longer programs, this wait time will increase. We can 
hold the wait time to a minimum by selecting only those Lines that need editing, 
rather than load in the entire program. 

Now press F5 to LIST the program. After the LISTing is complete, type: 


EDIT* 


ENTER 


(Note the period) 


The Computer placed Line 30 in the EDITor. EDIT, tells the Tandy 200 to EDIT 
the last Line in the program or the Line last EDITed or LISTed. 


Changing Line Numbers 

To put on the final polish, we’ll move the REM statement from the last Line to 
the first. One obvious way is to simply retype the REM statement in Line 5 and 
delete Line 30. That doesn’t teach us anything, however. 

We’ll do it an easier way, by simply changing the Line number from 30 to 5. 
This EDITing method has real advantages when reorganizing large programs 
containing complex equations or long statements. Press F8, then: 

Type: 


ENTER 


The display will read: 

30 REM * EDIT PRACTICE * 


Press 


SHIFT 


333 twice to remove the number 30. Type: 


5 


and F8 





The Soft Keys 


One exception: When we are in EDITor, F8 exits us back to BASIC. The second 
push gives us the MENU. 


BASIC Keys 

In BASIC, keys FI through F5, and F8 are predefined. Go to BASIC and 
press the LABEL key to see their names. Each of the “functions” assigned to 
the F keys in BASIC can also be typed in from the keyboard, so the F keys are 
not absolutely necessary, as they were in TEXT and other programs. They are 
just very convenient. 

To be technically correct, the so-called “functions” are really BASIC com- 
mands, but somewhere, somehow, the “soft” keys were named “F” keys, for 
function. Just a quirk of computer history. From here on, it’s “soft keys” 
whenever possible. 
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Another way to find out which commands are available on soft keys is by typing: 


ENTER 


You’ll now see a KEY LIST on the top of your display, telling you the real 
names of all the soft keys, and (if you have the LABEL key on) the “labels” 
for all the keys displayed along the bottom of the screen. Note that the label for 
Files is File, and that Save " and Load " have been shortened to S a v e 
and Load. 


There just isn’t room for more than four letters down there. 



Predefined Function Keys 

Each of these keys will be discussed, later as needed. In a nut shell, here are 
the assignments given to each F key in BASIC: 

FI Files Displays the files that are stored in memory, similar to MENU, 
but doesn’t exit us from BASIC. 

F2 Load " LOADs in a program from our files or from cassette tape. 
F3 Save " Stores our hard work in memory or on cassette tape. 


F4 Run Types RUN 


ENTER 


to execute the resident BASIC program. 




THAT V£ AfO T 
WHAT | MEAN 
WHEN 1 OAV, 
RETURN TO 
MENU ..." / 
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F5 List, Types LIST 32SBB to LIST the resident program. 

F8 M e n u Exits BASIC and returns us to the main Menu. 

Freedom To Function 

We can change any of these keys to make them do what we want. We will soon 
find that some statements and commands are used more than others. We may 
find that a PRINT statement is used in most programs. Wouldn’t it be handy to 
have this assigned to one of the unused function keys? Let’s define F6 as P R I N T 
for our convenience. 

Type: 

KEY G t " PR I NT 11 WhWsl 

Look at the LABEL LINE and see that F6 now means PRIN. (The first 4 charac- 
ters). From now on and forever more, F6 will mean PRINT, even if the Computer 
is turned off. Of course we can change it back the way it was , or to any of many 
other things we will discover. 

Let’s try our new function key when typing in these 3 NEW Lines: 

10 PRINT (use F6 for PRINT) 

20 PRINT "FUNCTION KEYS SAME TIME WITH" Wiili \ 
30 PRINT "THE EASE OF ONE KEYSTROKE ♦ " WhHal 

...and RUN. 

Very good! 

We can change F6 back to “empty” by simply typing: 

KEY G t " " IdEMdsl 

The same approach works for all 8 F-KEYS, but since advanced techniques are 
required to do things like incorporating a “ or an @E03i3, we’d better leave all 
but F6 and F7 alone until we know more about BASIC. 
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Learned in Chapter 4 


Miscellaneous 


Soft Keys 
KEY 

KEY LIST 





Speak to Me, 

Oh Great 
Computer 


r Chapter 5 


Math Operators 


D 

U ut Can It Do Math? 

Yes, it can. Basic arithmetic is a snap for the Tandy 200. So are highly complex 
math calculations — when we write special programs to perform them. (More 
on this later.) 

The BASIC Computer language uses the four fundamental arithmetic operations, 
plus a fifth which is just a modification of two of the others. 

1 . Addition, using the symbol + 

2. Subtraction, using the symbol - 

(See — nothing to this. Just like grade school. I wonder whatever 
happened to ol' Miss... Well, ahem — anyway) 

3. Multiplication, using the special symbol * 

(Oh drat, I knew this was too easy to be true!) 

4. Division, using the symbol / 

(Well, at least it’s simpler than the old -r symbol) 
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CAN LEARN TUAT 
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5. Negation (meaning “multiply times minus one”), using the - 
symbol. 

Of course, we also need that old favorite, the equals sign ( = ). But wait! The 
BASIC language is particular about how we use this sign! Math expressions (like 
1 +2*5) can only go on the right-hand side of the equals sign; the left-hand 
side is reserved for the result of the math equation. In other words, with a 
Computer we don’t say 2 + 2 = 4. We say 4 = 2 + 2. (This all may seem 
a little strange, but it’s really quite simple, as you’ll discover in the next few pages.) 

IT'S ALU IN UOW 

you 

IT ! 



Now that wasn’t too bad, was it? Be careful. We cannot use an “X” for multi- 
plication. Unfortunately, a long time ago a mathematician decided to use “X”, 
which is a letter, to mean multiply. We use letters for other things, so it’s much 
less confusing to use a for multiplication. Confusion is one thing a Computer 
can’t tolerate. To Computers, is the only symbol which means multiply. 
After using it awhile, you, too, may feel we should completely do away with X 
as a multiplication symbol. 

Putting all this together in a program is not difficult, so let’s do it. First, we 
have to erase the “resident program” from the Computer’s memory. 


“Resident program” is Computer talk for “what’s already in there.” 


Type the command: 


NEW 
then press: 


ENTER 


LIST 


(F5, remember?) 
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to check that there’s nothing left in memory. The Computer will respond with a 
simple: 


OK 

Putting The Beast To Work 

We will now use the Computer for some very simple problem solving. That 
means using equations. (Oh — panic.) But then, an equation is just a little 
statement that says “what’s on one side of the equals sign amounts to the same 
as what’s on the other side.” That can’t get too bad (it says here). 

We’ll use that old standby equation, 

“Distance traveled equals Rate of travel times Time spent traveling.” 

If it’s been a few years, you might want to sit on the end of a log and contemplate 
that for awhile. 

To shorten the equation, let’s choose letters (called variables) to stand for the 
three quantities. Then we can rewrite the equation as a BASIC statement accept- 
able to the Tandy 200. Type: 

40 D = R * T 


Remember, we have to use the * for multiplication. 


What’s that 40 doing in our equation? That’s the program Line Number. 
Remember, every step in a program has to have one. We chose 40, but another 
number would do just as well. The extra spaces in the Line are there just to make 
the equation easier for us to read; BASIC ignores them. Later, when you write 
very long programs, you’ll probably want to eliminate extra spaces because they 
take up memory space. For learning, they are helpful, so leave them in. 


Here’s what Line 40 means to the Computer: “Take the values of R and T, multiply 
them together, and assign the resulting value to the variable D. So until further notice, 
D is equal to the result of R times T.” 




We could not reverse the equation and write: R*T = D. This has no meaning to the 
Computer. Remember, the left-hand side of the equation is reserved for the Line 
Number and the value we are looking for . The right-hand side is the place to put the 
values we know. 


We can use any of the 26 letters from A through Z to identify the values we 
know as well as those we want to figure out. Whenever you can, it’s a good 
idea to choose letters that are abbreviations for the things they stand for — like 
the D, R, and T in the Distance, Rate, Time equation. 

To further complicate this very simple example, there’s an optional way of writing 
the equation, using the BASIC statement LET: 

40 LET D = R * T IsfglTig 

This use of LET reminds us that making D equal R times T was our choice, 
rather than some eternal truth like 2=1 + 1. Some Computers are fussy, and 
always require the use of LET with programmed equations. Our Tandy 200 says, 
“Whatever you want.” 

Okay — let’s complete the program. 

Assume: 

Distance (in miles) = Rate (in miles per hour) multiplied by Time (in 
hours). How far is it from San Diego to London if a jet plane traveling 
at an average speed of 500 miles per hour makes the trip in 1 2 hours? 
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Check the program carefully, then: 

RUN (use F4) 

Hum de dum ho-hum (this sure is a slow Computer). 

OK 


All it says is Ok. The Computer doesn’t work! 

Yes it does. It worked just fine. The Computer multiplied 500 times 12 just like 
we told it, and came up with an answer of 6000 miles. But we forgot to tell it 
to give us the answer. Sorry about that. 


EXERCISE 5-1 : Can you finish this prosram without help? It only takes 
one more Line. Give it a sood try before readins on for the answer. 
That way, the answer will mean more to you. (Hint: We’ve already 
used PRINT to print messases in quotes. What would happen if we 
said 50 PRINT " D "?...No, we want the value of D, not the letter "D” it- 
self. Hmmmm, what happens when we get rid of the quotes?) 


DON'T READ BEYOND THIS POINT UNTIL YOUVE WORKED ON THE 
ABOVE EXERCISE! 

Look in the back of this Manual for an answer for this 1st Exercise. Also some 
notes and ideas. 

Well, the answer of 6000 is correct, but its “presentation” was no more inspiring 
than the readout on a hand calculator. This inevitably leads us back to where we 
first started this foray into the unknown — the PRINT statement. 

Note that we said in Line 50 PRINT D. There were no quotes around the letter 
D like we had used before. The reason is simple but fairly profound. If we want 
the Computer to print the exact words we specify, we enclose them in quotes. If 
we want it to print the value of a variable, in this case D, we leave the quotes 
off. That simple message is worth serious thought before continuing on. 


Did you think seriously about it?... Then on we go! 
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Now suppose we want to include both the value of something and some exact 
words on the same Line. Pay attention, as you will be doing more and more 
program design yourself, and PRINT statements give beginners more trouble than 
any other single part of Computer programming. Type in the following: 


50 PRINT "DISTANCE IS" ,D 


ENTER 


Then: 

RUN 


ENTER 


(or F4) 


REMEMBER: Typing in a statement with a Line number that already exists erases 
the original Line completely — and that’s what we want to do here. 


The display says: 


DISTANCE IS G000 

How about that! The message enclosed in quotes is printed exactly as we specified, 
and the letter gave us the value of D. The comma told the Computer that we 
wanted it to print two separate items on the same Line. We can tell it to print 
up to two items on the same Line, simply by inserting commas between them. 

With this in mind, see if you can expand and change Line 50 so the Computer 
finishes the program with the following message: 

DISTANCE IS G000 

MILES* 

Break up the quoted message into two parts, and put the variable in between 
them on the PRINT Line. (Use the EDITor). 

50 PRINT "DISTANCE IS" » D » " M I LES ♦ " 

Now what about all that extra space on the display lines? The reason is that the 
Computer divides up the display width into two zones. There are 14 characters 
in the first and the remaining 26 in the second. When a PRINT statement contains 
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2 or more items separated by commas, the Computer automatically PRINTs them 
in different PRINT ZONES. Automatic Zoning is a very convenient method of 
outputting tabular information, and we’ll explore the subject further later on. 

It’s possible to eliminate all that extra space in the output display from our 
Distance, Rate, Time program. EDIT the last version of Line 50, substituting 
semi-colons (;) for the 2 commas. 

50 PRINT "DISTANCE IS" »D #" MILES ♦ " (old) 

50 PRINT "DISTANCE IS" » D H " M I LES ♦ " (new) 

RUN 

The display now appears: 

DISTANCE IS G000 MILES* 


Look very carefully at the new Line 50. There is no blank space between the S 
in I S, the D, and the M in MILES. But in the display printout, there is a space 
between IS and G000, and another space between G000 and MILES. How 
come? 

Reason: When numbers are printed, leading and trailing blank spaces are automat- 
ically inserted. As we do more programming, this feature will become very 
important. 

WHEW! 

Well, we have already covered more than enough commands, statements and 
math operators to solve a myriad of problems. 


Math operators? — they’re the + — * / = symbols we talked about earlier. 


Now let’s spend some time actually writing programs to solve problems. There 
is no better way to learn than by doing, and everything covered so far is fundamental 
to our success in later Chapters. Don’t jump over these exercises! They will 
plunge you right into the thick of programming, where you belong. Sample 
answers are in Appendix G, along with further comments. 
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EXERCISE 5-2: Write a prosram which will find the time required to 
travel by jet plane from London to San Diego, if the distance is 6000 
miles and the plane travels at 500 MPH. 









EXERCISE 5-3: If the circumference of a circle is found by multiplying 
its diameter times PI, (3.14), write a program which will find the 
circumference of a circle with a diameter of 35 feet. 









EXERCISE 5-4: Your checkbook balance was $225. You’ve written 
three checks (for $17, $35 and $225) and made two deposits ($40 
and $200). Write a program to adjust your old balance based on 
checks written and deposits made, and print out your new balance. 
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Chapter 6 -i 


Scientific Notation 


A 

§ \ re There More Stars or Grains of Sand? 

In this mathematical world we are blessed with very large and very small numbers. 
Millions of these and billionths of those. To cope with all this, our Computer 
uses “exponential notation”, or “standard scientific notation” when the number 
sizes start to get out of hand. The number 5 million (5,000,000), for example, 
can be written “5E + 06” (E for Exponential) . This means , “the number 5 followed 
by six zeros.” 


Or technically, 5*10 6 , which is 5 times ten to the sixth power: 5*10*10*10* 10*10*10 


If an answer comes out 5E-06, that means we must shift the decimal point, 
which is after the 5 , six places to the left, inserting zeros as necessary. Technically, 
it means 5 X 10 6 , or 5 millionths, (.000,005). 


In our BASIC, that’s 5/10/10/10/10/10/10 


It’s really pretty simple once you get the hang of it, and a lot easier to keep track 
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of numbers without losing the decimal point. Since the Computer insists on using 
it with very large and very small numbers, we can just as well get in the good 
habit, too. 

Type NEW before performing the following exercises. 


From now on, we will not specify except in special circumstances. We all 

know that an is required at the end of each program line and whenever we 

type in RUN or LIST. 


EXERCISE 6-1: If one hundred million cars drove one million miles in 
a certain year, how many miles did they drive altogether that year? 
Write and run a simple program using zeros (not exponential notation). 


EXERCISE 6-2: Change Lines 20 and 30 in the Car Miles Solution 
program (from Exercise 6-1 ) to express the numbers written there in 
exponential notation, or SSN (Standard Scientific Notation). Then RUN 
it. 


Learned in Chapter 6 








r Chapter 7 


Using ( ) and the 
Order of Operations 


P 

■ arentheses play an important role in Computer programming , just as in ordinary 
math. They are used here in the same general way, but there are important 
exceptions: 

1. In BASIC, parentheses can enclose operations to be performed. 
Those operations which are within parentheses are performed before 
those not in parentheses. 

2. Operations buried deepest within parentheses (that is, parentheses 
inside parentheses) are performed first. 

If you want to be sure your problems are calculated correctly, use ( ) around operations 

you want performed first, 

3. When there is a “tie” as to which operations the Computer should 
perform first after it has removed all parentheses, it works its way 
along the program Line from left to right doing the multiplication 
and division. It then starts at the left again and performs the addition 
and subtraction. 
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Recall the old memory aid, “My Dear Aunt Sally”? In math we are supposed to do 
Multiplication and Division first (from left to right), then come back for Addition and 
Subtraction (left to right). The Tandy 200 uses the same sequence. 


4. A problem listed as (X)(Y) will not tell the Computer to multiply. 

X*Y is the only scheme recognized for multiplication. 

EXAMPLE: To convert temperature in Fahrenheit to Celsius (Centigrade), the 
following relationship is used: 

The Fahrenheit temperature equals 32 degrees plus nine-fifths of the 
Celsius temperature. Or, maybe you’re more used to the simple for- 
mula: 


9 

F = - C + 32 
5 

Assume we have a Celsius temperature of 25. Type in this NEW 
program and RUN it. 

10 REM * CELSIUS TO FAHRENHEIT CONY* * 
20 C = 25 

30 F = (9/5)*C + 32 

40 PRINT Ci"DEG* CEL ♦ = " 5 F 5 " DEG ♦ FAHR ♦ " 


Sample RUN: 

25 DEG* CEL* = 77 DEG* FAHR* 


Remember what the semi-colons are for? 


Notice that Line 40 consists of a PRINT statement followed by four separate 
expressions — two variables and two groups of words in quotes called “literals” 
or “strings”. Notice also that everything within the quotes (including spaces) is 
printed. 

Next, note how the parentheses are placed in Line 30. With the 9/5 securely 


My DEAR. AUNT 
SALTY- I DIDN'T 
KNOW VOU 
WERE PART OF , 
TMIO n J 


rni<> i*s my 
w 

NEPHEW I 


LyJ 


a : 


ii i 
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inside, we can multiply its quotient times C, then add 32. 

Remove the parentheses in Line 30 and RUN again. The answer comes out the 
same. Why? 

1. On the first pass, the Computer started by solving all problems 
within parentheses, in this case just one (9/5). It came up with (but 
did not print ) 1.8. It then multiplied the 1.8 times the value of C 
and added 32. 

2. On our next try, without the parentheses, the Computer simply 
moved from left to right performing first the division problem (9 
divided by 5), then the multiplication problem (1.8 times C), then 
the addition problem (adding 32). The parentheses really made no 
difference in our first example. 

Next, change +32 to 32+ and move it to the front of the equation in Line 30. 
RUN it again, without parentheses. 

Did it make a difference in the answer? Why? 

Answer: Execution proceeds from left to right, multiplication and division first, 
then returns and performs addition and subtraction. This is why the 32 was not 
added to the 9 before being divided by 5. Very Important! If they had been 
added, we would of course had gotten the wrong answer. 


EXERCISE 7-1 : Write and run a prosram which converts 65° Fahrenheit 
to Celsius. The rule tells us that "Celsius temperature is equal to 
five-ninths times what’s left after 32 is subtracted from the Fahrenheit 
temperature." 


C = (F - 32) X - 
9 



EXERCISE 7-4: Insert parentheses in the following equation to make 
it correct. Write a program to check it out on the Tandy 200. 

30-9-8-7-6 = 28 



Learned in Chapter 7 
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Relational Operators 


■ F you liked the preceding Chapters, THEN you’re going to love the rest of this 
book! 

. . .because we’re just starting to get into the good stuff like IF-THEN and GOTO 
statements that let your Computer make decisions and take . . . er, executive action. 
But first, a few more operators... 

Relational Operators allow the Computer to compare one value with another. 
There are only three: 

1. Equals, using the symbol = 

(How’d you guess?) 

2. Is greater than, using the symbol > 

3. Is less than, using the symbol < 

Combining these three, we come up with three more operators: 

4. Is not equal to, using the symbol <> 
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5. Is less than or equal to, using the symbol < = 

6. Is greater than or equal to, using the symbol > = 


Example: A<B means A is less than B. To help you distinguish between < and >, 
just remember that the smaller part of the < symbol points to the smaller of the two 
quantities being compared. 


By adding these six relational operators to the four math operators we already 
know, plus new statements, called IF-THEN and GOTO, we create a powerful 
system of comparing and calculating that becomes the central core of everything 
else that follows. 

The IF-THEN statement, combined with the six relational operators above, gives 
us the action part of a system of logic. Enter and RUN this NEW program: 


10 

A = 5 


20 

IF A = 

: 5 THEN 50 

30 

PRINT 

" A DOES NOT EQUAL 

40 

END 


50 

PRINT 

" A EQUALS 5." 


The display says: 

A EQUALS 5 ♦ 


This program is an example of using an IF-THEN statement with only the most 
fundamental relational operator, the equals sign. 


The Autopsy 

Let’s examine the program Line by Line. 

Line 10 establishes the fact that A has a value of 5. 

Line 20 is an IF-THEN statement which directs the Computer to GOTO 
Line 50 IF the value of A is exactly 5, skipping over whatever might 
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be in between Lines 20 and 50. Since A does equal 5, the Computer 
jumps to Line 50 and does as it says, PRINTing A EQUALS 5. Lines 
30 and 40 were not used at all. 

Now, change Line 10 to read: 

10 A = B 

...and RUN. 

The display says: 

A DOES NOT EQUAL 5* 


Taking it a Line at a time: 

Line 10 establishes the value of A to be 6. 

Line 20 tests the value of A. If A equals 5, THEN the Computer is 
directed to go to Line 50. But “the test fails”; that is, A does not equal 
5, so the Computer proceeds as usual to the next Line, Line 30. 

Line 30 directs the Computer to print the fact that A does not equal 
5. It does not tell us what the value of A is, only that it does not equal 
5. The Computer then proceeds on to the next Line. 

Line 40 ENDs the program’s execution. Without this statement 
separating Lines 30 and 50, the Computer would charge right on to 
Line 50 and print its contents, which obviously are in conflict with 
the contents of Line 30. 

IF-THEN vs GOTO 

IF-THEN is what is known as a conditional branching statement. The program 
will “branch” to another part of the program on the condition that it passes the 
IF-THEN test. If it fails the test, the program simply continues to the next Line. 

GOTO is an unconditional branching statement. If we replace Line 40 with: 


40 GOTO 39 
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and add Line 99: 
93 END 


whenever the Computer hits Line 40 it will unconditionally follow orders and 
GOTO 99, ENDing the run. 

For practice, change Lines 40 and 99 as discussed above and RUN. 

Did the program work OK as changed? Did you try it with several values of A? 
Be sure you do so! We will find many uses for the GOTO statement in the future. 


Optional THEN With GOTO 

When the IF-THEN statement is used with a GOTO statement, either one or both 
can be used. This can be useful in long program Lines. For example, either of 
these Lines will work in place of Line 20 in our program: 

20 IF X = 5 THEN GOTO 99 


or 


20 IF X = 5 GOTO 99 

Now let’s see if you can accomplish the same thing by using the “does-not-equal 
sign: 


EXERCISE 8-1: Rewrite the resident program using a "does-not-equal 
sign in Line 20 instead of the equals sign, changing other Lines as 
necessary, so the same results are achieved with your program as with 
the one in the example. 
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EXERCISE 8-2: Charge Line 10 to give A the value of 6. Leave the 
other four Lines from #8-1 as shown. Add more program Lines as 
necessary so the program will tell us whether A is larger or smaller 
than 5 and RUN. 















~~ “ 


— 1 

EXERCISE 8-3: Change the value of A in Line 10 at least three more 
times, RUNning after each change to ensure that your new program 
works correctly. 

No sample answers are given since you are choosing your own values of A 
be obvious whether or not you are getting the riaht answer 

It will 

Learned in Chapter 8 
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It Also Talks and Listens 


— 

egin this Chapter by typing in the sample answer program to Exercise #8-2. 

By now you have probably gotten tired of having to retype Line 10 each time to 
change the value of A. The INPUT statement is a simple, fast and more convenient 
way to accomplish the same thing. It’s a biggie, so don’t miss any points. 

Add the following Lines to the resident program: 


Resident -- that’s the program that is now residing in the Computer. 

5 PRINT " TYPE IN A VALUE FOR A" 
10 INPUT A 

...and RUN. 

The Computer will print: 

TYPE IN A VALUE FOR A 

? i 
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See the question mark and flashing cursor on the display? It means, “it’s your 

turn -- and I’m waiting...” I 

| 

Type in a number, press 32H33 ar, d see what happens. The program responds 
in exactly the same way as when we changed numbers by changing Line 10. 

RUN the program several more times to get the feel of the INPUT statement. 

Pretty powerful, isn’t it? 

Let’ s add a touch of class to the INPUT process by changing Line 5 as follows: 

5 PRINT "TYPE IN A VALUE FOR A"? 

Look at that Line very carefully. Do you see how it differs from the earlier Line 
5? It is different ~ a semi-colon has been added at the end of the Line. 

Did you use the EDITor to add the semi-colo n? 

Think back a bit. We used semicolons before in PRINT statements, but only in 
the middle to hook several together to print close together on the same display 
line. In this case, we put a semicolon at the end, so the question mark from the 
Line 10 will print on the same line rather than down there by itself. After changing 
Line 5 as above, RUN. It should read: 

TYPE IN A VALUE FOR A? i 

Type in a number and press 

We cannot use semicolons indiscriminately at the end of PRINT statements. It 
is only meant to hook two Lines together, both of which print something. The 
INPUT Line PRINTs the question mark. We will later connect two long Lines 
starting with PRINT by a “trailing semicolon” so as to PRINT everything on the 
same Line. 


The Tandy 200 INTERPRETER is able to speak “The King’s BASIC” as well 
as a variety of dialects. The first of the many “short-cuts” we will learn combines 
PRINT and INPUT into one statement. 



It Also Talks and Listens 1 63 


Interpreter -- is the internal program that allows us to “rap” with the Tandy 200 s 
insides in the English language. We are studying BASIC, which stands for Beginners 
All-purpose Symbolic Instruction Code. 


Sometimes the word “dialect” is used when talking about the different forms of a 
computer language. Just as with dialects in “human” languages, there are differences 
in the way some computers use BASIC words. That s why I wrote The Basic Hand- 
book, Encyclopedia of the BASIC Language available at better computer and bookstores 
everywhere in English, and translated into French, German, Swedish, Norwegian, 
Dutch and Italian. 


Change Line 5 to read: 

5 INPUT " TYPE IN A VALUE FOR A"!A 
delete Line 10 by typing: 


ENTER! 


...and RUN. 

The results come out exactly the same, don’t they? Here is what we have changed: 

1. PRINT to INPUT 

2. Both statements on the same Line 

3 . Eliminated the extra Line 

In the long programs which you will be writing, running and converting, this 
shortcut will be valuable. 

Up to now, all our programs have been strictly one-shot affairs. You type RUN, 
the Computer executes the program, PRINTs the results (if any) and comes back 
with an OK. To repeat the program, we have to type RUN again. Can you think 
of another way to make the Computer execute a program two or more times? 


No ~ don’t enlarge the program by repeating its steps over and over again -- that’s 
not very creative! 



e-v ! 

I THINK I've 
(SOT IT 'I 


U^EN, PAL, 

i'll keep ask- 
in' fcr mope 

UNTIL - NOLI HIT 
ii^llH fowl* 

m BREAK. 
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We’ll answer that question by upgrading our Celsius-to-Fahrenheit conversion 
program (Chapter 7). If you think GOTO is a powerful statement in everyday 
life, wait ‘til you see what it does for a Computer program! 

Type NEW and the following: 

10 REM * I MPROVED PROGRAM* 

20 INPUT "TEMP IN DEGREES ( C ) " 5 C 
30 F = ( 9 / 5 ) *C + 32 

40 PRINT C i " DEG ♦ (C> =";F;"DEG. <F)" 

50 PRINT 
G0 GOTO 20 

...and RUN. 

The Computer will keep asking for more until you get tired or the batteries give 
out. To stop the program, press the filial key and the BREAK key (or 
H ) at the same time. This is the kind of thing a Computer is best at — doing the 
same thing over and over. Modify some of the other programs to make them 
self-repeating. You’ll find they’re much more useful this way. 

These have been five long and “meaty” lessons, so go back and review them all 
again, repeating those assignments where you feel weak. We are moving into 
progressively deeper water, and complete mastery of these fundamentals is your 
only life preserver. 

Learned in Chapter 9 
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Calculator or 
Immediate Mode 


wo Easy Features 


Before continuing our exploration of the nooks and crannies of the Computer 
acting as a computer, we should be aware that it also works well as a calculator. 
What’s more, it will work as a calculator at the Main Menu, or in TEXT and 
TELCOM. To enter the calculator mode, press and lock the I SLUM key and the 
[2222 key. Pressing the IflWfll key turns ON the “numeric keypad”, and while 
this key is locked ON, pressing Msldil turns ON the “calculator” mode. Notice 
the top line on the display shows: 


Calculator 


0 


Type in: 


ENTER] 


While typing this in, notice that the 0 is replaced by the numbers entered and 
by the final answer (12). The * (multiplication sign) is displayed next to the 
word Calculator. Try these calculations: 
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EXAMPLE: How much is 345 divided by 123? Type: 


ENTER 


...the answer is: 

2 ♦8048780487805 


EXAMPLE: What is the average of 3, 7 and 9? Type: 


ENTER 


...the answer is: 


7 

Spend a few minutes making up routine arithmetic problems of your own and 
use the calculator mode to solve them. Any arithmetic symbol which can be used 
in a program can also be used in the calculator mode. 


The Other Calculator 

If we omit the Line number before certain statements and commands, the Computer 
will execute them and display the answer. 


Turn OFF the calculator by pressing the MadTl key and turn OFF the numeric 
keypad by unlocking the lEUJfll key, then type in: 


PRINT 5*9 

...the answer comes back: 


ENTER 


45 


Try the sample problems we used in the other calculator mode. Don’t forget to 
use the PRINT statement with each calculation. 

Using this calculator mode, we can also include parentheses in our calculations. 
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Try the following: 

PR I NT ( 2/3 ) * ( 3/2 ) 

The answer is: 


ENTER 


1 


Here’s a new shortcut. Try: 


(ENTER 


? is shorthand for PRINT. The Tandy 200 does the conversion automatically. 

Calculator Mode For Troubleshooting 

Suppose a program isn’t giving the answers we expect. How can we troubleshoot 
it? One way is to ask the Computer to tell what it knows about the variables 
used in the resident program. 

EXAMPLE: If our program uses the variable X, we can ask the Computer to: 

PRINT X 


The Computer will PRINT the present value of X. Keep this handy tip in mind 
as you get into more complex programs. 

Another thought: Something is stored in every memory cell (even if you have not 
put anything there). Enter this instruction in the calculator mode: 


print a;b;c;d;e;f;g;h; 
ris;t5u;v5w;x;y;z 


I 5J5K 5L5M5N505P505 


ENTER! 


The answers depend on the values last given those variables — even from much 
earlier programs. 

We will probably get all zeros. 


If we turn the Computer off, then on again, all variables will be set to 0. Typing 
RUN also “INITIALIZES” the variables to 0. 



V'KNOW, 

r AUU T Ml4 
y U NNEC^SARV 
FOR-TT2DUBLH 
^WOOTIN£i 1 
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The FRE(0) Function 

Since programs do occupy space in the Computer’s memory, and program size 
is limited to how much memory we have purchased, it may be important to know 
how much memory a given program is occupying. That’s what the FRE(0) 
Function is for. 


This manual is meant to be for the Computer operator and programmer, so we are 
studiously avoiding Computer electronics theory - when possible. 


The amount of memory available for the Tandy 200 is “24K”. This means there 
are about 24,000 different memory locations or ^Bytes’’ to store and process pro- 
grams. 


BYTE — is the basic unit of storage for most Computers; normally it is considered as 
a string of eight binary digits (bits). Thus a byte = 8 bits. 


Let’s clear out any resident program by typing NEW 
much memory is available. 


ENTER 


and see just how 


One way to determine the total amount of available memory is to read the value 
in the Main Menu. Press F8 and note the Free Byte value shown on the bottom 
of the display, then return to BASIC. 


Now type: 


PRINT FRE ( 0 ) 


(Remember, ? can be substituted for PRINT) 


0 is a ‘dummy’ value used with FRE. Any number or letter can be used. 


Notice that this value is somewhat less than the value found in the Main Menu, 
256 less to be precise. BASIC automatically reserves this space in memory for 
array variables”. Later, we will learn about array variables and see how the 
array memory space can be changed. 

Type in this simple program: 

10 A = 25 


ENTERi 
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then measure the memory remaining by typing: 

PRINT FRE ( 0 ) BfflEg 

A little subtraction tells us that the program took 1 1 bytes of space. Here is how 
we account for it: 

1 . Each Line number and the space following it (regardless of how 
small or large that Line number is) occupies 4 bytes. The “carriage 
return” at the end of the Line takes 1 more byte, even though it does 
not print on the display. Thus, memory “overhead” for each Line, 
short or long, is 5 bytes. 

2. Each letter, number and space takes 1 byte. In the above program 5 
bytes for overhead + 6 bytes for the characters =11 bytes. 

Go into EDIT and change the Line Number to 9999, then check the memory with 
PRINT FRE(0). How many bytes used now? Right! Still 11. 

EDIT again, removing the spaces on both sides of the =. Did it change the 
storage used? Yes. 1 byte for each space. 

Now, type RUN, then check the memory. We just used up 1 1 more bytes! When 
RUN, a simple variable like the A takes up 3 bytes and the numerical value takes 
up another 8, totaling 11. 

We will be studying memory requirements in more detail later. 

Obviously, the short learning programs we have written so far are not taking a 
lot of memory space. This changes quickly, however, as we move to more 
sophisticated programming. Make a habit of typing PRINT FRE(0) when com- 
pleting a program to develop a sense of its size and memory requirements. 


Learned in Chapter 10 
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W 


' T e will soon write and run long and powerful programs. It becomes tedious 
to type them in accurately each time we want to use them. So far the program 
we typed in in Chapter 10(10 A = 25) is stored in the Computer’s memory. 
Let’s add one more Line: 


20 PRINT "THE VALUE OF A IS" 5 A 

The program remains there when we return to the Main Menu or even if we turn 
the Computer off. But how can we store this resident program while we work 
on a new one? 

The Tandy 200 permits several methods. We can save programs in its internal 
memory or on cassette tape, or we can transfer them via the RS-232 port to 
another Tandy 200 or a larger Computer. We can store an unlimited number of 
files, far beyond the Computer’s ability to hold them all at the same time. 


Internal Storage 

To file this program into the Computer’s memory from BASIC, press F3. The 
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display shows: 

Save " % 

Remember, to turn on the soft keys LABEL line press LABEL. 

Type: 

l3£U£Ui (“ mark is optional) 

To verify that it has been SAVEd, press FI (Files). Our program is shown as: 
XXX , BA* 

The .BA in XXX. BA means it is a BASIC program. The asterisk is a flag 
indicating that XXX. BA is the program we are currently working on. Files ending 
in .DO are TEXT files we created in earlier parts of this book. 

F8 to the Main Menu and see that the program is listed without the *. 

Return to BASIC and press F5 to LIST the program. Oops ... no program. 
Once the program is named and SAVEd in memory, the Computer does not retain 
it as the resident BASIC program. A quick check of the files with FI shows 
XXX. BA without the *, confirming that it is no longer resident. 

Press F2. The display responds with: 

Load " i 

type: 

HJiMa (as with Save the ending “ is optional) 


Ok indicates the program was found and was LOADed. Press F5 to check the 
LISTing. 


i ain’t no longer 

A RESIDENT- YOU 
l FORGOT THE * / 
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Shortcut 


There is a quicker way to enter BASIC and RUN our program. F8 to the Main 
Menu, place the cursor over XXX.BA. Notice that the program length is reported 
on the bottom of the display. Now press 


ENTER 


THE VALUE OF A IS 25 
OK 


We are in BASIC, the program is loaded, and it has even RUN! 
Press F5, and there’s our program. 


Cassette Storage 

The Tandy 200 has a built-in “Cassette Tape Interface” which allows us to record 
and store any program on high quality cassette tape. A full “24K” of memory 
can be DUMPed onto tape or LOADed from tape, in under 3 minutes. Most 
programs are shorter and take even less time. 


DUMPed and LOADed are everyday terms used with Computers to indicate “pour 
out” and “load in” Computer programs. 


Recording 

Only a little practice is required. Follow the yellow brick road: 
Hook up a recorder, just as we did for our TEXT files on page 32. 
Press F3, and after the Computer says: 

Save 

“DUMP” the program to tape by typing: 


ENTER 


CAS tells the Computer that we want this program saved on CASsette tape under the 
name “A”. We can specify any name of up to 6 letters and numbers. 
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When OK and the flashing cursor return and the motor stops, the program is 
SAVEd on tape. It is also in the Computer’s memory having only been “copied” 
out. 

Do it again, for safety. This time let’s use a short cut. Type C (don’t hit 
yet) then press F3. The display shows: 

CSaoe 

Enter the name: 

A 

CSave stands for “Save on Cassette”. “A” is again assigned as the program name. 

LOADing 

Reversing the process and LOADing (copying) the program from tape into the 
Computer is just as easy. 

1. Be sure the tape is fully rewound and the plugs are all in place. 

2. Push down the PLAY button until it locks. Set the Volume control 
to about 5. 

IMPORTANT: Too little or too much volume will cause a bad “LOAD”. 

3. Press F2, and after the Computer displays: 

Load " $ 
type in: 

C A S : A 

and the data will flow from the tape into the Computer. 
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When the Computer finds the file, it displays: 

F o u ri d : A 

The internal speaker lets us listen to the data as the Computer accepts 
it. Digital data sounds terrible ! You were expecting maybe Lawrence 
Welk? 

When □ K and the flashing cursor returns, the motor will stop and the 
LOAD is complete. The program also remains on the tape. 


If the load is bad and the recorder does not stop, press kliliai BREAK or the RESET 
button. This will take the Computer out of the LOAD or SAVE mode and return 
control to the keyboard. 


4. RUN the program to see that the data transfer was successful. In the 
event that it was not, repeat the above steps, being sure that all cables 
are properly connected, the volume is set to 5 and the tape recorder 
heads are clean. 


Rewind 

another 

shows: 


the tape and prepare the recorder again. This time 


short cut. Type C (don’t hit 


ENTER 


yet) then press 


we’ll load using 
F2. The display 


CLoad "g 
Type the name: 


ENTER 


and the program named A is CLOADed. 

Cassette storage is very reliable as long as you use premium quality tapes. With 
some experience, the noise from the Computer’s speaker will even seem to make 
sense. 


CLOAD? 

We can compare a program on tape against the one in memory. That way we 
are sure of getting a good recording before erasing the program from memory. 
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Rewind the tape. Set it up to play, and type: 


CL0AD?" A" 


ENTER 


It looks and sounds like we are loading in a program, but we’re actually just 
comparing program “A”, character for character, against what’s already in the 
Computer. We are not erasing or changing the memory. If they don’t match up 
for any reason, the test will stop and the display will read: 

Verify failed 
OK 

which means we’d better CSave the program again, maybe on a different tape. 
If we just type: 

CLOAD? 


without specifying the name of the program, it will check the first program on 
the tape against memory, and that’s normally all we want to do. 

Press F5 to check the program. If it doesn’t look the same as when we started 
this Chapter, fix it with the EDITor. Save the program into the Computer’s 
memory again by pressing F3 and typing: 

XXX" 


KILLing Files 

With our program safely stored outside the Computer, we can “free up” some 
memory space by typing: 


KILL " X X X ♦ B A " 


ENTER 


What’s this? The display displays: 


?FC Error 
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A quick check of the menu with FI indicates that we still have a file called 
XXX. BA*. Why wasn’t it KILLed? The Tandy 200 cannot KILL a file that is 
still resident, as indicated by the *. We have to F8 to the Main Menu, enter 
BASIC and: 


KILL " X X X ♦ B A " 


ENTER 


KILLing Files From Menu 

KILLing Files from BASIC is normally the preferred method since we can remove 
unwanted files while remaining in BASIC. There may also be times when we 
are in the Main Menu and want to remove files before entering BASIC. To try 
this method, CLOAD the test program from Cassette and then SAVE it into the 
Computer’s memory by pressing F3 and typing: 


ENTER 


F8 to the Main Menu, place the cursor over XXX. BA and press F5. The 
Computer gives us a chance to change our minds by asking the question: 

Are you sure ? ( Y / N ) 


Type the letter Y and zap, it’s gone. 

Sometimes the memory gets so full, the Computer won’t allow us to go into 
BASIC and kill files. If this happens, use the Main Menu Kill feature to delete 
a file or two, then enter BASIC and proceed to write new programs and kill files 
that are no longer needed. 


Learned in Chapter 11 


Commands 


LOAD“” 

LOAD:CAS 

CLOAD 

CLOAD? 


Commands 


SAVE“” 

SAVE:CAS 

CSAVE 

KILL“” 


Miscellaneous 

“loading” 
“dumping” 
Menu Kill 
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FOR-NEXT Looping 


A 

§ \ major difference between the Computer and a calculator is the Computer’s 

ability to do the same thing over and over an outrageous number of times! This 
one capability plus larger displays more than any other, separates the two. 

The FOR-NEXT loop is of such overwhelming importance in putting our Computer 
to work, that few of the programming areas we will explore from this point on 
will exclude it. Its simplicity and variations are the heart of its effectiveness; and 
its power is truly staggering. 

Type NEW and then the following program: 

10 PRINT "HELP! MY COMPUTER'S BERSERK!" 

20 GOTO 10 

...and RUN. 

The Computer is continuously writing: 

HELP! MY COMPUTER'S BERSERK! 


180 
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It will continue indefinitely until we tell it to stop. When you have seen enough, 
hit klillsll BREAK or g. This “breaks” the program RUN. 

Endless Loop 

We created what is called an “endless loop”. Remember our earlier programs 
which kept coming back for more INPUT? They were a very similar “loop”. 

Line 20 is an unconditional GOTO statement which causes the Computer to cycle 
back and forth (“loop”) between Lines 10 and 20 forever if not halted. This idea 
has great potential if we can harness it. 

Modify the program to read: 

8 FOR N = 1 TO 5 

10 PRINT "HELP! MY COMPUTER 'S BERSERK ! " 

20 NEXT N 

30 PRINT "NO - IT'S UNDER CONTROL* " 

...and RUN it. 

Behold: 

HELP! MY COMPUTER'S BERSERK! 

HELP! MY COMPUTER'S BERSERK! 

HELP! MY COMPUTER'S BERSERK! 

HELP! MY COMPUTER'S BERSERK! 

HELP! MY COMPUTER'S BERSERK! 

NO - IT'S UNDER CONTROL* 

The FOR-NEXT loop created between Lines 8 and 20 caused the Computer to 
cycle through Lines 8, 10, and 20 exactly 5 times, then proceed to Line 30. 
Each time the Computer hit Line 20 it saw “NEXT N.” The word NEXT caused 
the value of N to increase (or STEP) by exactly 1 . The Computer “conditionally” 
went back to the FOR N = statement that began the loop. 

Execution of the NEXT statement is “conditional” on N being less than 5 because 
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Line 8 says FOR N = 1 TO 5. After the 5th pass through the loop, the built-in 
test fails, the loop is broken and the program execution moves on. 


The FOR-NEXT statement harnessed the endless loop! 


In the example we used the variable N. Any single or double letter (or letter/ 
number) variable can be used. 


The Step Function 

There are times when it is desirable to increment the FOR-NEXT loop by some 
value other than 1 . The STEP function allows that. EDIT Line 8 to read: 

8 FOR N = 1 TO 5 STEP 2 

...and RUN. 

Line 10 was printed only 3 times (when N= 1, N = 3, and N = 5). On the first 
pass through the program, when NEXT N was hit, it incremented (or STEPped) 
the value of N by 2 instead of 1 . On the second pass through the loop N equalled 
3. On the third pass N equalled 5. 

FOR-NEXT loops can be stepped by any decimal number, even negative num- 
bers. Why we would want to step with negative numbers might seem rather 
vague at this time, but that too will be understood with time. Meanwhile, change 
Line 8 again: 

8 FOR N = 5 TO 1 STEP -1 
...and RUN. 

Five passes through the loop stepping down from 5 to 1 is exactly the same as 
stepping up from 1 to 5. Line 10 still was printed 5 times. Change the STEP 
from -1 to -2.5 and RUN again. Amazing! It printed exactly twice. Smart Com- 
puter. Change the STEP back to -1. 
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Modifying the FOR-NEXT Loop 

Suppose we want to print both Lines 10 and 30 five times, alternating between 
them. How will you change the program to accomplish it? Go ahead and make 
the change. 

HINT: If you can’t figure it out, try moving the NEXT N Line to another position. 
Right -- you moved Line 20 to Line 40 and the display reads: 

HELP! MY COMPUTER'S BERSERK! 

NO - IT'S UNDER CONTROL ♦ 

HELP! MY COMPUTER'S BERSERK! 

NO - IT'S UNDER CONTROL ♦ 


... etc. -- 3 more times. 


DO Looping 

How would you modify the program so Line 10 is printed 5 times, then Line 30 
is printed 3 times? Make the changes and RUN. 

The new program might read: 

8 FOR N = 1 TO 5 

10 PRINT "HELP! MY COMPUTER'S BERSERK!" 

20 NEXT N 

25 FOR M = 1 TO 3 

30 PRINT "NO - IT'S UNDER CONTROL." 

40 NEXT M 

We now have a program with two controlled loops, sometimes called DO-loops. 
The first DO-loop DOes something five times; the second one DOes something 
three times. We used the letter N for the first loop and M for the second, but 
any letters can be used. In fact, since the two loops are totally separate we could 
have used the letter N for both of them - not an uncommon practice in large 
programs where most of the letters are needed as variables. 
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RUN the program, being sure you understand the fundamental principles and the 
variations we have introduced. 


Incremental Looping 

There is nothing magic about the FOR-NEXT loop, in fact, you may have already 
thought of another (longer) way to accomplish the same thing by using features 
we learned earlier. Stop now, and see if you can figure out a way to construct 
a workable do-loop substituting something else in place of the FOR-NEXT 
statement. 

Answer: 

8 N = 1 

10 PRINT "HELP! MY COMPUTER ' S BERSERK!" 

15 N = N + 1 

20 IF N < G THEN 10 

30 PRINT "NO - IT'S UNDER CONTROL." 

Line 8 initializes the value of N, giving it an initial or beginning value of 1. 
Before initializing to the value we want, N could have been any number from 
previous program Lines. Note again that a RUN automatically resets all the 
variables back to 0 before the program executes. 


Initializes - initially, or at the beginning, sets the value of one of our variables (or 
starts a program back at the beginning). 


Line 15 then increments it by 1, making N one more than whatever it was before. 
Line 20 uses one of our relational operators (<) to see that the new value of N 
is within the bounds we have established. If not, the test fails and the program 
continues. 


To Decrement is to make smaller. 


Increments — steps (increases or decreases) values by specific amounts — by l’s, 3’s, 
5’s, or whatever. 
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Note that in this system of incrementing and testing we do not send the program 
back to Line 8 as was the case with FOR-NEXT. What would happen if we did? 

Answer: We would keep re-initializing the value of N to equal 1, and would 
again form an endless loop. 

The opposite of incrementing is decrementing. Change the program so Line 15 
reads: 


15 N = N - 1 

... then make other changes as needed to make the program work. 
Answer: The changed Lines read: 

8 N = G 

15 N = N - 1 

20 IF N > 1 THEN 10 


Putting FOR-NEXT to Work 

It isn’t very exciting just seeing or doing the same thing over and over, so there 
have to be more noble purposes for the FOR-NEXT loop. There are — many of 
them; and we will be learning new uses for a long, long time. 

Let’s suppose we want to print out a chart showing how the time it takes to fly 
from London to San Diego varies with the speed at which we fly. Remember, 
the formula is D = R*T. Let’s print out the flight time required for each speed 
between 200 mph and 1000 mph, in increments of 100 mph. The program might 
look like this: 

10 REM * TIME US RATE FLIGHT CHART * 

20 CLS 

30 D = 6000 

40 PRINT" LONDON TO SAN DIEGO" 

50 PRINT" DISTANCE = " 5 D 5 » ( M I LES ) " 
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S0 PRINT "RATE ( M PH ) " » " T I ME (HOURS)" 
70 FOR R = 200 TO 1000 STEP 100 
80 T = D/R 

30 PRINT R *T 

100 NEXT R 


Type in the program and RUN. 


How about that. ..? Try doing it on the old slide rule or hand calculator! 


It is really solving the D = R*T problem nine times in a row for different values 
and printing out the result. Your display should look like this: 

LONDON TO SAN DIEGO 
DISTANCE = 6000 (MILES) 


RATE (MPH) 

TIME (HOURS) 

200 

30 

300 

20 

400 

15 

500 

12 

600 

10 

700 

8*5714285714286 

800 

7*5 

000 

6.6666666666667 

1000 

6 


Analyzing The Program 

Look through the program and observe these many features before we do some 
exercises to change it: 

1. The REM statement identifies the program for future use. 
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2. Line 20 introduces the CLS (Clear Screen) statement to erase the 
display so we have a nice place to write. It allows us to write in a 
top-down manner. (RUN the program later leaving out this Line to 
contrast top-down with scroll mode.) CLS is a very unfussy state- 
ment which you will want to use often just to make your printouts 
neat and impressive. 

3. Line 30 initializes the value of D. D will remain at its initialized 
value. 

4. Lines 40 and 50 print a chart heading which is indented for 
appearance. 

5. Line 60 prints the chart column headings, and uses automatic zone 
spacing (the comma) to place those headings. 


Remember zone spacing? The comma (,) in a PRINT statement automatically starts 
the printing in the next PRINT zone, and the second PRINT zone starts at space 15 . 


6. Line 70 established the FOR-NEXT loop complete with a STEP. 
It says, “Initialize the rate (R) at 200 mph, and make passes through 
the “do-loop” with values of R incremented by values of 100 mph 
until a final value of 1000 mph is reached.” Line 100 is the other 
half of the loop. 

7. Line 80 contains the actual formula which calculates the answer. 

8. Line 90 PRINTs the two values. They are positioned under their 
headings by automatic zone spacing (the comma). 

9. Lines 80 and 90 are indented from the rest of the program text. 
This is a simple programming technique highlighting a do-loop 
which makes reading and troubleshooting easier. You will see it 
used increasingly as we move on. Try to adopt good programming 
practices like this as you do the exercises. Indenting does take up 
a little memory space, and on long programs in their final form it 
is sometimes omitted. 
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Take a deep breath and go back over any points you might have missed 
in this lesson. SAVE this program by pressing F3 and typing: 

FLIGHT" 


Our study of FOR-NEXT loops continues in the next Chapter. 

Learned in Chapter 12 

Commands Statements Miscellaneous 

CLS FOR-NEXT Increment 

STEP Decrement 

Initialize 
BREAK key 
Top down Display 
Scroll Display 
Do-Loop 


i 

[ 
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Son of FOR-NEXT 


T 

■ his is heady stuff. If you turned the Computer off between Chapters, LOAD 
in the “FLIGHT” program which we SAVEd at the end of the last Chapter. 

Modify the program so the rate and time are calculated and PRINTed for every 
25 mph increment instead of the 100 mph increment presently in the program 
and RUN. 

Answer: 70 FOR R = 200 TO 1000 STEP 25 


The Pause That Refreshes 

Now that the Computer is printing more than 16 lines, the top lines are running 
off the top of the display. 

RUN the program again and press the PAUSE key before the lines reach the bot- 
tom. Press it again and execution continues. With only 16 lines of display space, 
this key comes in very handy. 

For a really classy display we can build a “pause” routine into the program. 
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The display will fill, halt a moment, and automatically go on. Since there is no 
PAUSE, we have to accomplish it by other means. 

The Timing Loop 

Start by adding Line: 

9 END 


We are going to write and experiment with a second little program using Lines 
1-9 without erasing the one already resident. The new one must END without 
plowing ahead into the “Flight” program, thus, Line 9. 


The Egg Timer 

It takes time to do everything. Even this foxy box takes time to do its thing, 
though you may be awed by its speed. Add: 


1 PRINT "DON'T GO AWAY" 

2 FOR X = 1 TO 3000 

3 NEXT X 

a PRINT "TIMER PROGRAM ENDED ♦ " 


...and RUN. 


Remember back when we learned not to do this (number Lines in tight sequence)? 
Well ... if we hadn’t followed that rule with our “FLIGHT” program we wouldn’t have 
this nice space to demonstrate the point. 


How long did it take? Well, it did take time, didn’t it? About 10 seconds? 
The Computer can do approximately 300 FOR-NEXT loops per second. That 
means, by specifying the number of loops, you can build in as long a time-delay 
as you wish. 

Change the program to create a 30-second delay. Time it against your watch or 
clock to see how accurate it is. 

Answer: 2 FOR X = 1 TO 9000 



DON'T DISTURB 
’IM! WE'4 IN 
TUB MIDDLE 
OF A LOOP/ 


I AVI 

MwirM 


VtYi 

fJKj 




> 
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EXERCISE 13-1 : Using the space in Lines 1 through 7 design a program 
which asks how many seconds delay we wish, allows us to enter a 
number, then executes the delay and reports back at the end that the 
delay is over, and how many seconds it took. A sample answer is in 
Appendix G. 


How To Handle Long Program LISTings 

We now have two programs in the Computer. Let’s pull a LIST to look at 
them. My, my — they are so long it’s difficult to PAUSE the LISTing to see our 
new Lines. Now what do we do? 

Rather than wring our hands about the problem, type each of the following 
variations of LIST, and watch the display very carefully as each does its thing: 


LIST 

40 

LIST 

-40 

LIST 

40- 

LIST 

30-70 

LIST 

8-88 

LIST, 


LIST, 




(Lists only Line 40) 

(Lists all Lines up through 40) 

(Lists all Lines from 40 to end) 

(Lists all Lines from 30 thru 70) 

(Note that these numbers are not even in the program) 
(Lists the current or last Line number) 

(Lists the current or last Line number to end) 


How’s that for something to write home about? 

Question: How would you look at the resident program up through Line 9? 
Answer: Type LIST -9 (Talk about a give away!) 


Is There No End To This Magic? 

To run the first program resident in the Computer — we just typed RUN. To run 
the second one we have a foxy variation on RUN called: 

RUN ### 


The ###’s represent the number of the Line we want the RUN to start with. 
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...and, as you might suspect, it is similar to LIST###. To RUN the program 
starting with Line 10, type: 

RUN 10 


...and that’s just what happens. 

Will wonders never cease? If there are 20 or 30 programs in the Computer at 
the same time, we can RUN just the one we want, provided we know its starting 
Line number. What’ s more, we can start any program in the middle (or elsewhere) 
for purposes of troubleshooting -- a matter we will become more involved in as 
our programs get longer and more complicated. 


Meanwhile, Back At The Ranch 

We got into this whole messy business trying to find a way to slow down our 
run on the flight times from London to San Diego. In the process we found out 
a lot more about the Computer and learned to build a timer loop. 


More Than One Way 

Another way to STOP the fast parade of information through our display is to 
put in a STOP. Type in: 

75 IF R = 450 THEN STOP 
...and 

We know R is going to increment to 450, and that’s about one display full, so 
450 is a good choice. See how the chart ran out to 425 mph then hit the STOP 
as 450 came racing down to Line 75. Your display should display the first part 
of the chart and: 

Break in 75 


This means the program is stopped, or broken in Line 75. We can now study 
the top part of the chart leisurely. To restart the program merely type: 


C0NT 


ENTER 
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CONT stands for CONTINUE. 

... and it will pick up and print the rest, or execute until it hits another STOP . Where 
would you place the next STOP? 

Yep. 


78 IF R = 750 THEN STOP 

...and RUN. 

At Last 

Our ultimate plan is to build a timer into the program so as not to completely 
STOP execution, but merely delay it so we can study the display. First, let s 
erase the Lines in the test program that will not be needed in the timer. Type: 


ENTER] 


and type EDIT. 

For the first timer, add: 

73 IF R<> 450 THEN 80 

74 FOR X = 1 TO 2000 

75 NEXT X 


...and RUN. 
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Hey! It really works! As long as R does not equal 450 the program skips over 
the delay loop in Lines 74 and 75. When R does equal 450, the test “falls through” 

and Lines 74 and 75 “play catch” 2000 times, delaying the program’s execution 
for about 7 seconds. 


SAVE this program on cassette tape as “LONDON” for a future Chapter. 

You have learned enough to design the 2nd delay starting at Line 78 by yourself 
Have fun. 


Hint: Remember to change the Line number in Line 73. 


It s been a long and tortuous route with numerous scenic side trips, but we finally 
made it. Now that you have picked up so many smarts in these two lessons on 
FOR-NEXT, it’s your turn to put them to work. 


EXERCISE 13-2: Design, write and RUN a program which will calculate 
and PRINT income at yearly and monthly rates, based on a 1/12th-year 
month. Do this for yearly incomes between $5,000 and $20,000 in 
$1,000 increments. Document your program with REM statements as 
necessary to explain the equations you create. 


Some of our programs are becoming a little too long for us to leave space in the 
manual for you too write in your ideas. From now on, use a pad of paper for working 
up your answers. 


EXERCISE 13-3: Here s an old chestnut that the Computer really eats 
up: Design, write and RUN a program which tells how many days we 
have to work, starting at a penny a day, so if our salary doubles each 
day we know which day we earn at least a million dollars. Include 
columns which show each day number, its daily rate, and the total 
income to-date. Make the program stop after PRINTing the first day 
your daily rate is a million dollars or more. (After that ... who cares!) 


Answers to these Exercises can be found in Appendix G. 
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The “Brute Force” Method 
(Subtitled: Get A Bigger Hammer) 

Much to the consternation of some teachers, a great value of the Computer is its 
ability to do the tedious work involved in the “cut and try”, “hunt and peck” or 
other less respectable methods of finding an answer (or attempting to prove the 
correctness of a theory, theorem or principle). This method involves trying a 
mess of possible solutions to see if one fits, or find the closest one, or establish 
a trend. Beyond that, it can be a powerful learning tool by providing gobs of 
data in chart or graph form which would simply take too long to generate by 
hand. For example: 

EXERCISE 13-4: You have a 1000 foot roll of fencing wire and want 
to create a rectangular pasture. 

Usins all of the wire, determine what length and width dimensions 
will allow you to enclose the maximum number of square feet. Use 
the brute force method; let the Computer try different values for L and 
W and print out the Area fenced by each pair of L and W. 

The formula for area is Area = Length times Width, or A=L*W 


Learned in Chapter 13 


Commands 
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Miscellaneous 

LIST### 

STOP 

Timer Loop 

RUN### 


“Brute force” or 

CONT 


optimizing method 



PAUSE key 
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Formatting with TAB 


F 

After those last few chapters, time out for an easy one. 

We already know 3 ways to set up our output PRINT format. 

We can: 

1. Enclose what we want to say in quotation marks, inserting blank 
spaces as necessary. 

2. Separate the objects of the PRINT statement with semicolons so as 
to print them tightly together on the same Line. 

3. Separate the objects of the PRINT statement with a comma to print 
them on the same Line in the two different print “zones”. 

A fourth way is using the TAB function, which is similar to the TAB on a regular 
typewriter. TAB is especially useful when the output is columns of numbers with 
headings. Type in the following program and RUN: 

10 PRINT TAB(5> 5"THE" 5TAB< 15) 5 "TOTAL" i 
TAB ( 25 ) 5 "SPENT" 
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Notice anything funny about Line 10? It takes up two lines on the display! That’s 
because it contains more than 40 characters (including Line number and blank spaces). 

This is perfectly all right, as you may already have discovered in your own programming 
efforts In fact, a program Line can contain up to 254 characters (including Line 
numbers and spaces). To enter or LIST such a long line takes over four Display lines; 
but it’s still just one numbered program line! 

20 PRINT T A B ( 5 ) 5" BUDGET" 5 T A B ( 15) ?" YEAR'S" 5 
T AB ( 25 > 5 "THIS" 

30 PRINT TAB(5) 5 "CATEGORY" 5TAB( 15) 5" BUDGET" 
TAB (25)5 "MONTH" 


A semicolon is traditionally used following TAB, as shown, but is optional. Think 
twice before not using them as they greatly improve readibility. Like parentheses, 
their misuse can sometimes affect answers. 


The RUN should appear: 

THE TOTAL SPENT 

BUDGET YEAR'S THIS 

CATEGORY BUDGET MONTH 


EXERCISE 14-1 : Rewrite and EDIT the program above using the 3 ways 
we have so far to format PRINTing. Here is a start: 

10 PRINT" 

20 PRINT" 

30 PRINT" 

T AB ( ) 5 " 

Use ordinary spacing for the first Line of the heading, zone spacing 
for the second Line and TABbing for the third Line. 

HINT: This isn’t as easy as it looks so may require extensive editing. 
Since automatic zone formatting is not adjustable, the other formats 
may have to be keyed to it. 


(29 spaces) 


" » " 


" 5 T AB ( ) 5 " 


" 5 




WEY! JU4TT 6ECAU4E 
MV TAB'^ SIMILAR 

TO A TYPEWRITER, 
DOESN'T MEAN I'LL 

"ding" at the end 

OF A LIKJE l 
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Type this NEW program: 

10 A = 3 

20 B = 5 

30 C = A + B 

40 PRINT T A B < 1 0 ) i " A " » T A B ( 2 0 ) i " B " » T A B ( 3 0 ) 5" C" 

50 PRINT TAB( 10) iA 5TAB<20) iB 5TAB(30) SC 

...and RUN. 

It should appear: 

ABC 
3 5 8 


Note that the numbers are indented one space beyond the TAB(#). Keep this in 
mind when lining up (or indenting) headings and answers. 

Change Line 20 to read: 

20 B = -5 


...and RUN. See why the indenting is necessary? 

When numeric variables are printed, the Computer inserts one space to the left 
of the number to allow for the — or + sign, plus a following space. 


The Long Lines Division 

Have you ever wondered what would happen if we had to PRINT a great number 
of headings or answers on the same Line — but didn’t have enough room on the 
PROGRAM Line to neatly hold all the TAB statements? You have? Really? 
You’re in luck because it’s easy. Type and RUN the following program: 

10 A = 1 
20 B = 2 
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30 C = 3 
40 D = a 
50 E = 5 
B0 F = S 

70 PRINT "A" iTAB(5) 5"B" 5TAB( 10) !"C" 5 
80 PRINT TAB( 15) 5 "D" 5TAB(20) i "E" 5 
90 PRINT TAB ( 25 ) ? "F" 

100 print a ;tab(5) ;b ;tab( 10) ;c;tab( 15) ; 

110 PRINT D iTAB ( 20 ) ;e ;TAB ( 25 ) iF 

It’s the trailing semicolon (;) that does the trick. It makes the end of one PRINT 
Line continue right on to the next PRINT Line without activating a carriage 
return. The combination of TAB and trailing semicolon allows almost infinite 
flexibility in formatting the output. 



EXERCISE 14-2: Rework the answer to Exercise 13-2 to include the 
WEEKLY rate of pay (based on a 52-week year) in the printout. Use 
the TAB function to have the chart display all 3 columns side by side. 





ever. Type this program: 

10 FOR A = 1 TO 3 
20 PRINT "A LOOP" 

30 FOR B = 1 TO 2 
40 PRINT > " B LOOP" 

50 NEXT B 
G0 NEXT A 

...and RUN. 

For good program readability, add 1 blank space in Line 20 before PRINT; 2 in Line 
30 before FOR; 3 in 40 before PRINT; and 2 in 50 before NEXT. 
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The result is: 

A LOOP 

B LOOP 
B LOOP 

A LOOP 

B LOOP 
B LOOP 

A LOOP 

B LOOP 
B LOOP 

This display vividly demonstrates operation of the nested FOR-NEXT loop. 
“Nesting” is used in the same sense that drinking glasses are “nested” when stored 
to save space. Certain types of portable chairs, empty cardboard boxes, etc. can 
be nested. They fit one inside the other for easy stacking. 


When writing programs, be sure to indent Lines to highlight nesting or program flow. 
It helps when reading them — and is a great aid when debugging (troubleshooting) 
programs. 


Let’s analyze the program a Line at a time: 

Line 10 establishes the first FOR-NEXT loop, called A, and directs 
that it be executed 3 times. 

Line 20 prints A L 0 0 P so we will know where it came from in the pro- 
gram. See how this program Line is indented 1 space to make it stand 
out as being nested in the “A loop”? 

Line 30 establishes the second loop, called B, and directs that it be 
executed twice. It is indented even more so you can instantly see that 
it is buried even deeper in the “A” loop. 

Line 40 has a comma following PRINT to kick us into the next print 
zone where B L 0 0 P is printed. Makes for clear distinction on the 
display between A loop and B loop, eh? 
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Line 50 completes the “B” loop and returns control to Line 30 for as 
many executions of the “B” loop as Line 30 directs. So far we have 
printed one “A” and one “B”. 

Line 60 ends the first pass through the “A” loop and sends control 
back to Line 10, the beginning of the A loop. The A loop has to be 
executed 3 times before the program run is complete, printing “A” 3 
times and “B” 6 times (3 times 2). 

Study the program and the explanation until you completely comprehend. It’s 
simple but powerful magic. 

OK, to get a better “feel” for this nested loop (or loop within a loop) business, 
let’s play with the program. Change Line 10 to read: 

10 FOR ft = 1 TO 5 

...and RUN. 

Right! A was printed 5 times, meaning the “A” loop was executed 5 times, and 
B was printed 10 times — twice for each pass of the “A” loop. Now change Line 
30 to read 

30 FOR B = 1 TO a 

...and RUN. 

Nothing to it! A was printed 5 times and B printed 20 times. If you are having 
trouble counting A’s and B’s as they whiz by, remember what to do? Just press 
PAUSE to stop execution and temporarily freeze the display. 

How To Goof-Up Nested FOR-NEXT Loops 

The most common error beginning programmers make with nested loops is 
improper nesting. Change these Lines: 

50 NEXT A 
B0 NEXT B 


...and RUN. 
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The Computer says: 

?NF Error in 60 ( Next without For in Line 60) 

Looking at the program we quickly see that the B loop is not nested within the 
A loop. We have the FOR part of the B loop inside the A loop, but the NEXT 
part is outside it. This doesn’t work! 

A later chapter deals with something called “flow charting”, a means of helping 
us plan programs and avoid this type of problem. Meanwhile we just have to be 
careful. 

Breaking Out Of Loops 

Improper nesting is illegal, but breaking out of a loop when a desired condition 
has been met is OK. It’s not a good programming habit to get into because some 
computers get confused when this occurs. Add and change these Lines: 


50 NEXT B 

55 IF A = 2 GOTO 100 

G0 NEXT A 

99 END 

100 PRINT "A EQUALS 2. RUN ENDED ♦ " 


...and RUN. 

As the display shows, we “bailed out” of the A loop when A equalled 2 and hit 
the test Line at 55. The END in Line 99 is just a precautionary roadblock set up 
to stop the Computer from running into Line 100 unless specifically directed to 
go there. That would never happen in this simple program, but we will use 
protective ENDs from time to time to remind us that Lines which should be 
reached only by specific GOTO or IF-THEN statements must be protected against 

accidental “hits”. 

We’ll be seeing a lot of the nested FOR-NEXT loop now that we know what it 
is and can put it to use. 

EXERCISE 15-1: Enter the ordinal program found at the beginning of 
this Chapter. It contains 2 B loops nested within 3 A loops. Make the 
necessary additions so a new loop called "C will be nested within 
the B loop, and will print “C LOOP” 4 times for each pass oftheBloop. 
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Learned in Chapter 15 


Miscellaneous 


Nested FOR-NEXT loops 
Protective END blocks 




Chapter 16 - 



nteger??? “I can’t even pronounce it, let alone understand it.” Oh, come, come. 
Don’t let old nightmares of being trapped in Algebra class stop you now. It’s 
pronounced (IN-teh-jur) and simply means a whole number like 12, -5, 0, or 
3, etc. How difficult can that be? Come to think of it, some folks make a whole 
career of complicating simple ideas. We’re here to do just the opposite. 

The INTEGER function, INT(X), allows us to “round off’ any number, large or 
small, positive or negative, into an integer, or whole number. 



l'M ROUNDING. 
OFF A NUMBER ! 


Careful -- we re not talking about ordinary rounding. Ordinary rounding gives us the 
closest whole number, whether it’s larger or smaller than X. INT(X), on the other 
hand, gives us the largest whole number which is less than or equal to X. As you’ll 
see in this chapter, this is a very versatile form of rounding — in fact, we can use it 
to produce the other, “ordinary” kind of rounding . 
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Type NEW to clear out any old programs, then type: 

30 X = 3.14159 

40 Y = I NT ( X ) 

70 PRINT "Y = " ?Y 

...and RUN. 

The display reads: 

Y = 3 

Oh — success is so sweet! It rounded 3.14159 off to 3 . Change Line 30 to read: 

30 X = -3.14159 

...and RUN. 

Good Grief! It rounded the answer DOWN to read: 

y = 

What kind of rounding is this? Easy . The INT function AL W AY S rounds DOWN 
to the next LOWEST WHOLE number. Pretty hard to get that confused! It makes 
a positive number less positive, and makes a negative number more negative 
(same thing as less positive). At least it’s consistent. 

Taking it a Line at a time: 

Line 30 sets the value of X (or any of our other alphabet-soup variables) 
equal to the value we selected, in this case PI. 

Line 40 finds the INTeger value of the above number and assigns it a 
variable name. We chose Y. 

Line 7 0 prints a little identification ( Y =) folio wed by the value of Y . 
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Not Content To Leave Well Enough Alone 

We can do some foxy things by combining a FOR-NEXT loop with the INTeger 
function. 

Before getting into the FOR-NEXT loop, change the program to read: 

30 X = 3.14159 
40 V = I NT ( X ) 

50 Z = X - Y 
G0 PRINT "X = " i X 

70 PRINT "Y = " 5 Y 

80 PRINT "Z = " 5 Z 

...and RUN. 

AHA! I don’t know what we’ve discovered but it must be good for something. 
It reads: 


X = 3.14159 

Y = 3 

Z = .14159 


We’ve split the value of X into its INTeger (whole number) value and called it 
Y, and its decimal value and called it Z. 

Lines 60, 70, and 80 merely printed the results. 


Suppose we only need the value of PI accurate to three places. (Of course, we 
can make X = 3.142, but that’s not the point.) Type NEW, then enter this 


program: 

10 X = 3.14159 

20 X = X + .0005 

30 X = I NT ( X * 1000)/1000 
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40 PRINT X 


...and RUN. 

Adding .0005 gives our fraction a “push in the right direction.” If this fraction 
has a digit greater than 4 in its 10-thousandths-place, then adding .0005 will 
effectively increase the thousandth ’s-place digit by 1 . Otherwise, the added .0005 
will have no effect on the final result. This results in what’s called 4/5 rounding. 

Line 30 moves the decimal place to the right 3 places before the INTeger value 
is found. The new value is then divided by 1000 to bring the decimal back 3 places. 

Try using other values than PI for X (just make sure X*1000 isn’t top large for 
the 1NT function to handle). 

It’s easy to change the program to accomplish rounding at a different point. For 
example, to round X off at the hundredths-place (2 digits to the right of the 
decimal point), change Lines 20 and 30 to read: 


10 X = 3,14159 
20 X = X + ,005 
30 X = I N T ( X * 100)/100 
40 PRINT X 

...and RUN, using several values for X. 


This trick is very useful when you’re printing out dollars-and-cents. It prevents 
$39. 995-type prices. 


HMMMM!!! 

Do you suppose there is any way to separate each of the digits in 3.14159, or in 
any other number? Do you suppose we would have mentioned it if there wasn’t? 
After all . . . (mumble , mumble . . . ) . 


It s really your turn to do some creative thinking, but we’ll get it started and see 
if you can finish this idea. First, wipe out the resident program and retype this 
program that splits X into an integer and fractional part: 


30 X 


3,14159 
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40 

Y 

= I NT ( X ) 


50 

7 

jL 

= X 

- Y 


G 0 

PR 

INT 

"X = " 

5X 

70 

PR 

INT 

11 y = 11 

; y 

80 

PR 

INT 

ii 2 r 11 

5 Z 


Got any ideas? No? Well, think some more. 


Time Out For Creative Thinking! 



(...brief interlude of recorded music...) 



Right! If we multiply the value of Z by 10 then Z will become a whole number 
plus a decimal part: 1.4159. We can then take its integer value and strip off the 
decimal part, leaving the left hand digit standing alone. Let’s label the left-hand 
digit L and see what happens. Enter: 

90 M = Z * 10 
100 L = INT(M) 

110 PRINT "L = " iL 

...and RUN. 

Aha! It reads: 


3 ♦ 14159 
3 

♦ 14159 
1 

We peeled off the leftmost digit in the decimal. Can you think of any way we 
might use a FOR-NEXT loop in order to strip off some more? 




' TIME OUT FOR 
CREATIVE THIMI 
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After all, these digits might not be just a more accurate value of PI, but a coded 
message from a cereal box. If you don’t have the decoder ring it’s tough luck, Charlie 
- unless you have a Computer! 



(...More recorded music...) 



Enough thinking there on company time! Enter these Lines: 


95 FOR A = 1 TO 5 
120 M = M - L 
130 M = M * 10 
140 NEXT A 


...and RUN. 

VOILA! The “printout” reads: 

X = 3 ♦ 14159 

Y = 3 

Z = .14159 

L = 1 

L = 4 

L = 1 

L = 5 

L = 9 


Line 95 began a FOR-NEXT loop with 5 passes, one for each of the 
5 digits right of the decimal. 

Line 120 creates a new decimal value of M (just a temporary storage 
location) by stripping off the integer part. (Plugging in the values, M 
= 1.4159 - 1 = .4159). 
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Line 130 does the same as Line 90 did, multiplying the new decimal 
value times 10 so as to make the left-hand digit an integer and vulnerable 
to being snatched away by the INT function. (M = .4159* 10 = 
4.159) 

Line 140 moves the control back to Line 95 for another pass through 
the clipping program... and the rest is history. 


Troubleshooting Tools 

We can insert temporary PRINT Lines anywhere in any program to follow every 
step in its execution. The Computer can actually overwhelm us with data. By 
carefully indicating what we want to know, we can observe the inner details of any 
process. Start by adding this Line: 

92 PRINT " #92 M = " 5M 
...and RUN. 

The essentials of this “test” or “debugging” or “flag” Line are: 

1. It PRINTs something. 

2. The PRINT tells the Line number, for analysis and easy location 
for later erasure. 

3. It tells the name of the variable you are watching at that point 
in the program. 

4. It gives the value of that variable at that point. 


This “flagging” is such a wonderful troubleshooting tool in stubborn programs that 
you will want to make a habit of never forgetting to use it when the going gets tough . 

It is most helpful of all when inserted in FOR-NEXT loops — so: 

97 PRINT " #97 A = " »A 


...and RUN. 
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Wow! The data really comes thick and fast! It tells what is happening during 
each pass of the loop. Hard to keep track of so much information, and we’ve 
barely begun. Is there some way to make it more readable? 

Yes, there are lots of ways. Indenting is one simple way to separate the answers 
from the troubleshooting data. Change Lines 92 and 97 as follows: 

92 PRINT *"#92 M = " 5 M 

97 PRINT *"#97 A = " IA 

...and RUN. 

Ahh. How sweet it is. That is so easy to read, let’s monitor some more points 
in the program. Type: 

125 PRINT TAB ( 22 ) 5 " # 1 25 M = " ?M 

135 PRINT TAB<22) 5 "#135 M = " ! M 

...and RUN. 

Egad, Igor! We’ve created a monster! 

There it is. All the data we can handle (and then some). By using the PAUSE 
key to temporarily halt execution, we can study the data at every step to understand 
how the program works (or doesn’t). Do it. Understand this program and all its 
little lessons completely. When you are satisfied, go back and erase the “flags”. 


INTeger Division 

And if that isn’t enough to keep your mind reeling, there is another way to get 
the INTeger value of the result of an equation without using the INT function! 
It is called INTeger division, and instead of using the normal slash /, we use the 
backslash V 

Note: To produce the \ on the Tandy 200, press while typing — (minussign). 
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Type NEW and try this example: 


10 

X 

= 23 

♦ 987G5 




20 

Y 

= 2. 

56789 




30 

PR 

INT 

" X / Y " > " 

II 

;x 

/Y 

50 

PR 

INT 

" INT(X/Y) 

" > 

" = " 5 INT(X/Y) 

G0 

PR 

INT 

" X \ Y " t" 

= II 

;x 

\ Y 

90 

PR 

INT 





.and RUN. : 

It should produce: 




X / Y 



- 

9 ♦ 

3a 

13853397147 

INT 

( X 

/Y ) 

= 

9 



X \ Y 



s 

1 1 




Eleven??? Is that right? Yep. INTeger division actually modifies the value of 
each variable in the equation before the calculation is made. In this case, both 
X and Y were rounded down to the nearest whole number then the division was 
performed giving an INTeger value as the result. Hmmm, did that sink in? Add 
these two Lines which show, in a round about way, exactly how \ works. 

70 A= I NT ( I NT ( X ) / I NT ( Y ) ) 

80 PRINT "MY OWN X \ Y " » " = " ? A 

...and RUN. 

Eleven!!! Ahhh. Take a breather. You have learned quite enough for this 
Chapter. 
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EXERCISE 16-1: Enter this straightforward NEW program for finding 
the area of a circle. 

10 P = 3 ♦ 14159 

20 PRINT "RADIUS " * "AREA" 

30 PRINT 

40 FOR R = 1 TO 10 
50 A = P * R * R 
G0 PRINT R tA 
70 NEXT R 


...and RUN. 

Area equals PI times the radius squared (that is, the radius times itself). 

Pretty routine stuff -- huh? Problem is, who needs all those little 
numbers to the far right of the decimal point. Oh, you do? Well, 
there’s one in every crowd. The rest of us can do without them. 
Without giving any hints, modify the resident program to suppress all 
the numbers to the right of the decimal point. 


EXERCISE 16-2: Now, knowing just enough to be dangerous, and in 
need of a lot of humility, change Line 55 so that each value of area is 
rounded (down) to be accurate to 1 decimal place. For example: 


RADIUS 


etc. 
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Learned in Chapter 16 


Functions 


Miscellaneous 


INT(X) 


Flags 



1 1 Went That- A- Way 

Enter this NEW program: 


10 

INPUT 

"TYPE A 

# BETWEEN 1 & 5 

20 

IF 

N = 

1 

GOTO 

110 

30 

IF 

N = 

7 

GOTO 

130 

40 

IF 

N = 

3 

GOTO 

150 

50 

IF 

N = 

4 

GOTO 

170 

G0 

IF 

N = 

5 

GOTO 

190 

70 

PRINT 

"THE # 

WAG NOT BETWEEN 


DUMMY!" 

99 END 

110 PRINT "N = 1" 
120 END 


AND 5 
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130 

PRINT 

"N = 

2 11 

140 

END 



150 

PRINT 

"N = 

3" 

180 

END 



170 

PRINT 

"N = 

4" 

180 

END 



190 

PRINT 

"N = 

5" 


RUN it a few times to feel comfortable with it, and be sure it is “debugged”. 

Debugged is an old Latin word which, freely translated, means “getting all the errors 
out of your Computer program.” 


This program works fine for examining the value of a variable, N, and sending 
the Computer off to a certain Line number to do what it says there. If there are 
lots of possible directions in which to branch, however, we will want to use a 
greatly improved test function called ON-GOTO which cuts out lots of Lines of 
programming. Let’s examine an ON-GOTO after you do the following: 

Erase Lines 20, 30, 40, 50 and 60. 

Enter this new Line: 


20 ON N GOTO 110,130,150,170,190 

...and RUN a few times, as before. 

Works just the same, doesn’t it? 

The ON-GOTO statement is really pretty simple, though it looks hard. Line 20 
says, 

if the INTeger value of N is 1 then GOTO Line 1 10. 
if the INTeger value of N is 2 then GOTO Line 130. 
if the INTeger value of N is 3 then GOTO Line 150. 





AW , LET '4- 
MOT DRAO 
OUT THAT OL* 
CHE4TMUT 
FOR " DE- 
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if the INTeger value of N is 4 then GOTO Line 170. 

if the INTeger value of N is 5 then GOTO Line 190. 

if the INTeger value of N is not one of the numbers listed above, then 
move on to the next Line. 


Remember, an INTeger is just a whole number. 


The ON-GOTO statement has its own built-in INT statement. It really acts like 
this: 

20 ON INT(N) GOTO... ETC. 

RUN again and type in the following values for N to prove the point: 

1.5 

3.99999 

0.999 

5.999 

6.0001 

Get the picture? 


Variations On A Theme 

There are lots of tricks that can be played to milk the most from ON-GOTO. 
For example, if we want to branch out to 15 different locations but don’t want 
to type that many different numbers on a ON-GOTO Line, we can use several 
Lines, like this: 


20 ON N GOTO 1 1 0 » 130 f 150 r 170 r 130 
25 ON N - 5 GOTO 210,230,250,270,230 
30 ON N - 1 0 GOTO 310 >330 >350 *370 >330 

and fill in the proper responses at those Line numbers. 
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In Line 25, it was necessary to subtract 5 from the number being input as N, 
since each new ON-GOTO Line starts counting again from the number 1. In 
Line 30, since we had already provided for inputs between 1 and 10, we subtract 
10 from the input N to cover the range from 11 through 15. By using the 
ON-GOTO statement, we have programmed into 3 Lines what would otherwise 
have taken 15 Lines. By packing more branching options into each ON-GOTO 
Line, we could have done it in 2 Lines or less, depending on the number of digits 
in the Line numbers of the branch locations. 

As in most of our examples, we could have used any letter after ON , not just 
N. As we just saw, N can be the value of a letter variable, or a complete 
expression, either calculated in place (as here) or in a previous Line. 


Trade Secret 

Due to the vagaries of rounding error and the chance the error might just round 
a number like “N” a tad below the INTeger value expected, it is common to see 
something like this: 

50 ON N+ ♦ 2 GOTO 100»200»300 

The effect of this shifty move is to add just a “pinch” to the incoming value of 
N, knowing full well that the ON-GOTO statement contains its own INT function. 
If N happens to have been rounded down to say 1.98 (instead of the 2.000 
expected), 0.2 will be added to it making N 1.98 + .2 = 2.18 which the built-in 
INT will round down to the desired 2. Pretty sneaky. Values between .1 and .5 
are often added to the N for this purpose in well-written programs. 


Give Me A SGN(X) 

Using the ON-GOTO along with a new function called SGN (it’s pronounced 
“sign”), plus a modest amount of imagination, produces a most useful little 
routine. But first, let’s learn about SGN. 

The SGN function examines any number to see whether it is negative, zero, or 
positive. It tells us the number is negative by giving us a ( - 1). (In computer 
language, “it returns a - 1.”) If the number is zero it returns a (0). If positive, 
it returns a (+ 1). It’s a very simple function. 

In order to sneak into the next concept, we will simulate the built-in SGN function 
with a subroutine. 
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So What Is A Subroutine? 

Funny you should ask. A subroutine is a short but very specialized program (or 
routine) which is built into a large program to meet a specialized need. BASIC 
stores many of them in a special place in memory ready for us to call up as needed. 

As an example of how to create functions that are not included in our BASIC, 
we are going to use a five-Line subroutine instead of the “SGN” function to 
accomplish the same thing. Even though Tandy 200 BASIC supports the “SGN” 
function, you should complete this Chapter to be sure you learn about subroutines. 
We don’t want to turn out dummies, you know. 

“Scratch” the program now in the Computer by typing NEW, then - very carefully, 
so as not to make any mistakes, type in the SGN subroutine: 


30000 

END 




30800 

REM INPUT 

X » 

OUTPUT T = 

30810 

IF X < 

0 

THEN 

T = -1 

30820 

IF X = 

0 

THEN 

T = 0 

30830 

IF X > 

0 

THEN 

T = +1 

30840 

RETURN 





“CALLING” A Subroutine — (Sort of like calling hogs.) 

GOSUB directs the Computer to go to a Line number, execute what it says there 
and in the lines following, and when done, RETURN back to the line containing 
that GOSUB statement. We will use Line 20 here. 


20 GOSUB 30800 


RETURN is to GOSUB what NEXT is to FOR. 


The RETURN statement is always at the end of a subroutine, and ours is at Line 
30840. We have reserved Line number 30000 to hold a protective END block 
for all of our subroutines, so the Computer doesn’t come crashing into them when 
it is done with the main program. (Try taking it out when we’re done and see 
what happens.) 
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Getting Down To Business 

OK, now let’s combine GOSUB with the SGN subroutine to see what all this 
fuss is about. Add: 


10 

INPUT 

"TYPE ANY NUMBER" ?X 

20 

GOSUB 

30800 


30 

ON T + 2 

GOTO 50 *60 >70 


45 

END 



50 

PRINT 

"THE NUMBER IS 

NEGATIVE. M 

55 

END 



G0 

PRINT 

"THE NUMBER IS 

ZERO. " 

G5 

END 



70 

PRINT 

"THE NUMBER IS 

POSITIVE. " 


...etc. (the subroutine is already typed in)... and RUN. 


Try this same program using ON-GOSUB in Line 30. Remember, change Lines 55 
and 65 to RETURN and add Line 75 RETURN. 


Try entering negative, zero and positive numbers to be sure it works. Most of 
the program workings are obvious, but here is an analysis: 

Line 10 asks you to INPUT any number. 

Line 20 sends the Computer to Line 30800 by a GOSUB statement. 

This is different from an ordinary GOTO, since a GOSUB will return 
control to the originating Line like a boomerang when the Computer 
hits a RETURN. The call to GOSUB is not complete and will not 
move on to the next program Line until a RETURN is found. 

Lines 30800 through 30840 contain this rather simple logic subroutine. 

Line 30840 holds RETURN which sends control back to Line 20, 
which silently acknowledges the return and allows execution to move 
to the next Line. 
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Line 30 is an ordinary ON-GOTO statement, but adds 2 to the value 
of its variable, in this case “T”. Line 30 is really saying, 

“If T is - 1 then GOTO Line 50. If it is zero then GOTO Line 
60, and if it is +1 GOTO Line 70.” 

By adding 2 to each of those values we “matched” them up with the 
1, 2, and 3 series which is built into the ON-GOTO statement. 

Lines 45, 55, and 65 are routine protective blocks. 


By the way, most subroutines are not this simple - as a matter of fact, they get into 
rather hairy mathematical derivations. We won’t bother trying to explain any of them 
— if you re heavy into math, you go right ahead and play with the numbers... 


Preview Of Coming Attractions? 

Like so much of what we are learning, this is just the tip of the iceberg. The 
ON-GOTO and SGN functions have many more clever applications, and they 
will evolve as we need them. As a hint for restless minds, note that the value 
of X (which we INPUT) was not used, but it didn’t go away. All we did was find its 
SGN. Hmmm... 


Routines Vs Subroutines 

In this Chapter, we studied a special-purpose routine used as a subroutine. It is 
one of the few that we can both use and really understand. All the routines, 
understandable or not, can be built directly into any program instead of being set 
aside and called” as subroutines. The main value of subroutines is that they can 
be called repeatedly from different parts of a program, which is often desirable. 
Ordinary routines are usually only used once, so use of GOSUB and RETURN 
with them often doesn’t make good programming sense. 


One value of using special routines as subroutines is that some are exceedingly 
complex to type without error, and if each is typed once and saved on tape or 
disk, it can be quickly and accurately loaded back into the Computer as the first 
step in creating a new program, or added to an existing one. 


We 11 have more to say in a later Chapter . When you see just how powerful subroutines 
are, you’ll feel like your Computer is even smarter than it thinks it is. 


Now it’s your turn. 
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EXERCISE 17-1 : Remove all traces of the subroutine from the resident 
program. Use the SGN function to accomplish the same thing we 
have been doing using a subroutine. Hint: T = SGN(X) 

Learned in Chapter 17 


Functions 

Statements 

Miscellaneous 

SGN(X) 

ON-GOTO 

Debugging 

GOSUB 

RETURN 

Subroutines 





- Chapter 1 8 


RaNDom Numbers 


m t Random 


A true RaNDom number is one with a value that is unpredictable. A “Random 
Number Generator” is a device which pulls random numbers “out of a hat”. Our 
Computer can act as such a device, and here is the format for doing so: 


N = RND(X) 


where N is the value of the random number. 

RND is the abbreviation and symbol for the RaNDom function. X is a control 
parameter. We can give X a value of 0 or 1. “1” will yield a random number 
between zero and one. A “0” will produce the value of the previous random 
number generated by RND, for test purposes. 

Type: 

10 PRINT RND ( 1 ) ; 

20 GOTO 10 


230 
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...and RUN (use the PAUSE key). 

Did you observe: 

1 . Different numbers appeared each time? 

2. All numbers were between 0 and 1? 

3. Very small numbers were expressed in Exponential notation? 

Let it run a while, until you are convinced that all these statements are true. 


Remember to press 


SHIFT 


BREAK to stop the Computer. 


Now type: 


PRINT RND ( 0 ) 


ENTER 


and the last RaNDom number PRINTed will be repeated. Hmmm... 


This Is Fairly Exciting! 

Well, maybe so, but we ain’t seen nothing yet! Virtually all Computer games 
are based on the RND(X) function, and you’ll soon be playing some and designing 
your own. 


The Old Coin Toss Gambit 

We could toss a thousand heads in a row and the odds on the next toss are exactly 
50/50 that a head will come up again. Every toss is totally independent of what 
happened before it. It is too!!!!! 

In the long run, however, the number of heads and tails should be exactly the 
same. (Casinos live off people who go broke waiting for their particular scheme 
to pay off. . .“in the long run.”) This Computer will give you a complete education 
in “odds” and various games of chance, and allow you to prove or disprove many 
ideas involving probability. This is known as Computer “modeling” or 
“simulation.” 
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Type in this coin toss simulation carefully to avoid errors: 

10 INPUT "NUMBER OF COIN FLIPS" iF 
20 CLS 

30 PRINT "SIT TIGHT NHILE I'M FLIPPING" 

40 FOR N= 1 TO F 

50 X = INT ( RND ( 1 ) *2+1 ) 

60 ON X GOTO 90 » 1 10 

70 PRINT "BOMBED! NEITHER A 1 NOR A 2," 

80 END 
30 H = H + 1 
100 GOTO 120 
1 10 T = T + 1 
120 NEXT N 

130 PRINT "HEADS" ?TAB< 10) ?"TAILS" 5TAB(20) ? 
"TOTAL FLIPS" 

140 print h ;tab< 10) ;t ;tab(20) ;f 

150 PRINT H/F* 1 00 5 " 7, " 5 TAB ( 1 0 ) 5 T/F* 1 00 5 " !£ " 

...and RUN. “Flip the coin” 100 times. It comes up with 52 heads, 48 tails, 
right? RUN it a few more times. Hmmm... how come it comes up with the same 
answer every time? Well, that’s because it is generating random numbers, but it 
generates the same list of random numbers every time. Later we will learn a way 
around that, but we need to do some other things first. Now try running it for 
1000. Yes, I know it seems to be taking a long time, but that’s a lot of numbers 
— be patient. . .Wow! 500/500, that’s pretty good! ! ! Now let’s see exactly what’s 
happening in this program. 

Program Analysis: 

Line 10 asks you to INPUT the number of flips desired. 


Line 20 does a CLear Screen. 
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Line 30 PRINTs a “Standby” statement. 

Line 40 begins a FOR-NEXT loop that runs “F’ times. 

Line 50 is the RND generator of our l’s and 2’s (heads and tails). 
Here s what happens. Since the RND(l) gives us random numbers 
between 0 and 1 (non-inclusive) we multiply RND(l) by 2. Now we 
have random numbers between 0 and 2. There are two more steps, so 
don’t get bored yet! Next we add 1 to the value of RND(1)*2 and this 
puts our random numbers between 1 and 3 (remember, the actual range 
is 1.000... 1 to 2. 999...). Finally, we take the integer value of RND(l)* 
2+1. This gives us a 1 if the random number is in the interval of 1-2 
and a 2 if the random number is in the interval of 2-3. And that gives 
us our heads or tails. 


Line 60 has an ON-GOTO test, if X = 1 we go to Line 90 where the 
“Heads” are counted, if X = 2 we go to Line 110 where the “Tails” 
are counted. 

Lines 70 and 80 are used as default Lines. If X = other than 1 or 2, 
the error message will be printed and execution will END. It will never 
happen, but we want to prove this. 

Line 90 sets up H as a “Heads” counter. Each time the ON-GOTO 
test sends control to this Line (because X = 1), H is incremented by one. 

Line 100 sends control to Line 120 where NEXT N is executed. When 
the N Loop has gone through all “F” number of passes, control moves 
on to Line 130. Until then, the NEXT N sends it back to Line 40. 

Line 1 10 keeps track of the “Tails”. 

Line 120 passes control to Line 130 when the last “N” is “used up”. 

Line 130 PRINTs the Headings. 

Line 140 PRINTs the values of H, T and F. 

Line 150 calculates and PRINTs the percentage of heads and tails. 

More Than One Generator At A Time 

It is possible to generate more than one random number by using more than one 
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generator in a program. This has special value when the ranges of the generators 
are different, but is helpful even if their ranges are the same. 


It could also be done with a single generator, but that wouldn’t make our point. . .would 
it? 


To make the point, we will create a Computer game of “Craps” — where 2 dice 
are “rolled”. Each “die” has six sides, each side having 1,2, 3, 4, 5 or 6 dots. 
When the 2 dice are rolled, the number of dots showing on their top sides are 
added. That sum is important to the game. Obviously, the lowest number that 
can be rolled is 2, and the highest number is 12. We will set up a separate 
Random Number Generator for each die, give each a range from 1 to 6, and call 
them die “A” and die “B”. 

Type NEW, then the following: 


150 

A = 

INT 

( RND ( 

1 ) *6+ 1 ) 

1G0 

B = 

INT 

( RND ( 

1 ) *6+ 1 ) 

170 

N = 

A + B 



180 

PR 

INT 

N 


100 

GOTO 

50 



...RUN. 

As you can see, each number PRINTed falls between 2 and 12. We only need 
to PRINT N since the dice are always both thrown at the same time, and only 
the sum of the two is of interest here. 

Why would the following be wrong? 

50 PRINT I NT ( RND ( 1 ) * 1 2+ 1 ) 

Answer: Adding random numbers created by two generators, each picking 
numbers between 1 and 6 will create many more sums which equal 
3,4,5,6,7,8,9,10 and 11 than a single generator which picks an equal amount of 
numbers 1 through 11 (to which we add 1, to make the range 2 through 12). 
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Rules Of The Game 

In its simplest form, the game goes like this: 

1 . The player rolls the two dice. If he rolls a sum of 2 (called “snake 
eyes”), a 3 (“cock-eyes”), or a 12 (“boxcars”), on the first roll, he 
loses and the game is over. That’s “craps”. 



2. If the player rolls 7 or 1 1 on the first throw, (called a “natural”), 
he wins and the game is over. 

3. If any other number is rolled, it becomes the player’s “point”. 
He must keep rolling until he either “makes his point” by getting 
the same number again to win, or rolls a 7, and loses. 


EXERCISE 18-1: You already know far more than enough to complete 
this prosram. Do it. Put in all the tests, print Lines, etc. to meet the 
rules of the same and tell the player what is soins on. It will take you 
a while to finish, butsive ityour best before you turn over to Appendix 
H (User Programs) under CRAPS for a sample solution. Good luck! 


Making RaNDom Random 

Random numbers are unpredictable; properly functioning Computers are not. 
So how can we get random numbers out of the Computer? We don’t- we get 
PSEUDO-RANDOM numbers. 

Each time we use the RND function, the Computer uses an internal “seed number” 
to produce a random number. The problem is that the Computer starts with the 
same seed every time a program is RUN, thus the same sequence of numbers is 
repeated. Here’s how to get around the problem. 

All we need to do is figure out a way to get an unpredictable number somewhere 
from in our Computer. 

Type the following: 


PRINT T I ME$ 
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Hmmm, that’s interesting... If we could somehow separate the seconds from the 
time, we would have essentially unpredictable numbers between 0 and 59. That 
would give us 60 different seed numbers. Here’s how we do it: 

PRINT UAL(RIGHT$(TIME$ * 2 ) ) 


The mechanics of that statement will be covered in detail in later Chapters, but 
for those too curious to wait here is a short analysis: RIGHT$(TIME$,2) means 
“Peel off the 2 right-most characters in TIMES”. VAL means “Make sure those 
2 characters are numbers so we can use them in a numeric operation.” 

We now have the means to write a subroutine for “randomizing” the list. Type 
NEW and the following: 


10000 

S = UAL ( R 

I GHT$ ( T I ME$ * 2 ) ) 

10010 

FOR X = 1 

TO S 

1 0020 

D = RND 

( 1 ) 

10030 

NEXT X 


10040 

RETURN 



and there’s our subroutine. Now let’s use it by typing in the rest of the program: 


10 

GOSUB 

1 0000 

(Randomize) 

20 

FOR N 

= 1 TO 4 


30 

PRINT 

RND (1)5 



40 NEXT N 
50 END 


and RUN several times. Ahhhh! Now we’ve got it. Instead of only one version 
of the game, we now have 60 versions. The most important thing to understand 
right now is that we have developed a RANDOMIZER subroutine, not how it 
works. The mechanics will be learned later. 

EXERCISE 18-2: Add our RANDOMIZE subroutine to the CRAPS same. 
Check that the game is different each time you RUN it. Can you think 
of any way to create more than 60 different seed numbers? 
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Learned in Chapter 18 


Functions 


Miscellaneous 


RND(X) 


Random vs. Pseudo-random 
Seed numbers 





w 

T T e have learned how to insert numbers into programs by two different 
methods. The first is by building the value into the program: 

10 A = 5 

The second is by using an INPUT statement to enter them through the keyboard: 

10 INPUT A 

The third principal method uses the DATA statement. 

Type in this NEW program: 

10 DATA 1 *2 >3 ,4 ,5 
20 READ A ♦ B »C »D »E 

30 print a;b;c;d;e 

...and RUN. 
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The DATA statement is in some ways similar to the first method in that a line 
holding the values is part of the program. It’s different, however, since each 
DATA Line can contain many numbers, or pieces of data, each separated by a 
comma. Each piece of DATA must be read by a READ statement, each READ 
Line can hold a number of READ statements, each separated by a comma. 

The display shows that all 5 pieces of DATA in Line 10, the values 1,2, 3, 4 and 
5, were READ by Line 20, assigned the variables A through E, and PRINTed 
by Line 30. 


Keep in mind these important distinctions: DATA Lines can be read only by READ 
statements. If more than one piece of data is placed on a DATA Line, they must be 
separated by commas. INPUT statements enter data via the keyboard. 


DATA Lines are always read from left to right by READ statements; the first 
DATA Line first (when there is more than one). It does not matter where they 
are in the program. This may seem startling, but do the following and you will see: 

1 . Move the DATA Line from Line 10 to Line 25 and run. No change 
in the printout, right? 

2. Move the DATA Line from Line 25 to Line 10000. Same thing — 
no change in the printout. DATA Line(s) can be placed anywhere 
in the program. 

This fact leads different programmers to use different styles. Some place all 
DATA Lines at the beginning of a program so they can be read first in a LISTing 
and found quickly so data may be changed. 

Others place all DATA Lines at a program’s end where they are out of the way 
and there are additional Line numbers available to keep adding DATA Lines as 
the need arises. Still others scatter the DATA Lines throughout the program next 
to the READ Lines. The style you select is of little consequence -- but consistency 
is comfortable. 


The Plot Thickens 

Since we now know all about FOR-NEXT loops, let us see what happens when 
a DATA Line is placed in the middle of a loop. Erase the old program with 
NEW and type in this program: 

10 DATA 1 t2 f3 fti t 5 



I £M£LL FAT BURNING* 
LI^4EN 'MA4TEC2.', IT 
IDEALLY DOESN’T MATTER 
WHERE DATA LINJES ^50. 
JU^T BE CON^I^THKiT 

HE CONl^|^TENl"r 
<s«o*o-^i <=»-re?to-T- 


la^ cow^i4-n>»JT 

BtJ **Vt»N T 
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20 FOR N = 1 TO 5 
30 READ A 

40 PRINT Ai 

50 NEXT N 

...and RUN. 

That DATA Line is outside the loop. Now move it to Line 25 and RUN. What 
happened? 

Nothing different! It is important to absorb this fact or we wouldn’t have gone 
to the trouble to prove it. We went through the N loop 5 times, READ the letter 
A 5 times, and the PRINT statement PRINTed A 5 times, but A’s value was 
different each time. Its value was last READ from the DATA Line. The reason 
— each piece of data in a DATA Line can only be read once each time the program 
is RUN. The next time a READ statement requests a piece of data, it will read 
the NEXT piece of data in that DATA Line, or, if that Line is all “used up”, 
move on to the next DATA Line and begin READing it. 

Change Line 20 in the program to read: 

20 FOR N = 1 TO B 

...and RUN. 

The READ statement was instructed to READ 6 pieces of DATA, but there were 
only 5. An error statement caught it, as the display shows. 

1 2 3 4 5 

?0D Error in 30 (Out of Data in Line 30) 

Change Line 20 so the number of READs is less than the DATA available. 

20 FOR N = 1 TO 4 

...and RUN. 

The program ran just fine as long as we didn’t use all the available data. The 
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point is, each piece of data in a DATA statement can only be read once during 
each RUN. 


Exceptions, Exceptions! 

Because it is sometimes necessary to read the same DATA more than once without 
having to RUN the complete program over, a statement called RESTORE is avail- 
able. Whenever the program comes across a RESTORE, all DATA Lines are 
restored to their original “unread” condition, both those that have been read and 
those that have not, and all are available for reading again. Change Line 20 of 
the program back to: 

20 FOR N = 1 TO 5 


and insert: 

35 RESTORE 

...and RUN. 

Oh-oh ! The display prints five 1 ’s instead of 1 2 3 4 5 . Can you figure out why? 

Line 30 READ A as 1, but Line 35 immediately RESTOREd the 
DATA Line to its original unREAD condition. When the FOR-NEXT 
loop brought the READ Line around for the next pass it again read 
the first piece of data, which was that same 1 . Same thing happened 
with the remaining passes. 

Now, remove Line 35 and add these Lines: 


15 

DATA G 1 7 *B *9 

» 10 

S0 

FOR N = 1 TO 

5 

70 

READ A 


80 

PRINT a; 


30 

NEXT N 



...and RUN. 
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The FOR-NEXT loop in Lines 20 and 50 caused the READ statement in Line 
30 to READ the 5 numbers in Line 10. The second FOR-NEXT loop in Lines 
60 and 90 caused Line 70’s READ statement to READ the DATA in Line 15. Add 
this RESTORE statement: 

55 RESTORE 

...and RUN. 

Line 55 RESTOREd the DATA so Line 70 READ the numbers in Line 10. Make 
these changes: 


20 FOR N = 1 TO 10 
55 RESTORE 15 

...and RUN. 

Notice how the DATA in Line 15 is READ twice. By placing a DATA Line 
number in the RESTORE statement, the Computer RESTORES the DATA in that 
line only. 

READ and DATA statements are extremely common. RESTORE is used less 
often. 


Do you begin to see some distant glimmering involving the storing of business or 
technical DATA in DATA Lines where it’s easily changed or updated without affecting 
the rest of the program or its formulas? 


Learned in Chapter 19 


Statements 


READ 

DATA 

RESTORE 




Strings 


^5 
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Intermediate BASIC 


I ntermediate Features Of Tandy 200 BASIC 

Now that we’ve learned “Elementary” BASIC, we can get serious about “Inter- 
mediate” BASIC. The next Chapter is sort of a “catch up” and “catch all,” 
showing a lot of little features that didn’t find a convenient home previously. 
Study each of them, do the sample programs and think about them. Each one is 
brief but important. 

Multiple Statement Lines: (Now he tells us!) 

Tandy 200 BASIC allows us to put more than one statement on each numbered 
line separating them by a colon (:). For example, a timer loop such as: 

100 FOR N = 1 TO 500 
110 NEXT N 


becomes . . . 

100 FOR N = 1 TO 500 : NEXT N 
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Caveat Emptor (Don’t buy a used computer from a stranger.) 

Control yourself! It’s easy to get carried away with this new concept. While we 
will be using multiple statement Lines often from here on, you will quickly see 
that it’s possible to pack the information so tightly it becomes hard to read, and 
also very hard to modify. 

More Caveat (or is it more Emptor?) 

Multiple statement Lines require careful understanding. Especially critical are 
statements of the IF-THEN variety. 

Enter the following incorrect program: 


10 

INPUT 

"TYPE IN A 

NUMBER" 5X 

20 

IF X = 

: 3 THEN 50 

: GOTO 70 

30 

PRINT 

"HOW DID Y 

OU GET HERE? 

40 

END 



50 

PRINT 

" X = 3 " 


B0 

END 



70 

PRINT 

"CAN'T GET 

FROM THERE 


...and RUN it a number of times with different input values. 

Line 20 has an error in logic! If the test in the first statement in the Line passes, 
control branches off to Line 50. That’s OK. 

If the test fails, however, control drops to the next Line in the program — Line 
30, not to Line 70. There is no way the second statement in Line 20 (GOTO 
70) can ever be executed. 

The Message - if you put an IF-THEN (or ON-GOTO) type-test in a multiple 
statement Line, it must be the LAST statement in that Line. 

Next Message — we cannot send control TO any point in a multiple statement 
Line except to its FIRST statement. Look at Line 20. There is no way to address 
the GOTO 70 portion. It shares the same Line number as the first statement in 
the same Line. Only the first statement is addressable by a GOTO or IF-THEN. 
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Other statements in a Line are accessed in sequence, IF each prior test is passed . 


Variable Names 

We know we can use the 26 letters of the alphabet as names for variables. We 
can also use the numbers 0 through 9 in conjunction with these letters: 

A3 = G5 
F 9 = 37 

etc. 

Although the 26 letter variables are usually enough, adding the numbers gives 
us an additional 26 * 10 = 260. They can be very handy, particularly if we 
want to label a number of “sub” variables (Dl, D2, D3, etc.) which may combine 
to make a grand total which we can just call D. 

In addition, we can use ALMOST any two-LETTER combination for a name. 
For example: 

PI = 3 ♦ 14159 

C = PI*D (Circumference = 3.14159 * Diameter) 

This 2-letter feature gives us another 26 * 26 variables, and if that isn’t enough 
to solve all your problems, nothing will. Nearly a thousand possible variable 
names so far, and we’ll discover several times that many before we’re through. 

Enter this program, and RUN watching for an error message: 


10 

RATE = 55 


20 

TIME = 3 


30 

DISTANCE = RATE * 

TIME 

40 

PRINT RATE # TIME# 

DISTANCE 


Oops! ?SN got us in Line 30. Is the word DISTANCE too long? Let’s EDIT it 
back to DISTA and RUN again. 

OK, that got us past Line 30, but the same problem exists in 40. Cut DISTANCE 
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back to DISTA and try again. 

That’s more like it. Looks pretty good doesn’t it? We can actually use WORDS 
to name our variables. Add this Line and RUN: 

35 DIME = 10 


Another SN error? What’s wrong with DIME?? 

It just so happens that the word DIM (dimension) is one of a number of “reserved” 
words, and we can’t use them as, or in, variable names. DIM is the first 3 letters 
of DIME. The problem with DISTANCE in Line 30 wasn’t length, as we 
suspected, words can be HUNDREDS of characters long. It contained TAN, 
another reserved word. Ah, so! 

Better take a look now at the list of reserved words in Appendix C. 

Okay, how about just cutting back to 2 letters. We know we can use ALMOST 
any 2 letter combination for a name. (Again — see Appendix C.) 

Now try: 

35 D I = 10 

...and RUN. 

It ran, but look at the answer! Our variable DISTA was printed with a value of 
10 instead of 165. What happened? DISTA surely can’t be the same as DI. 
Well, it might look different, but the Computer only sees the first 2 letters of any 
variable, and they ARE the same. The DI in Line 35 gave the DI in DISTA a 
new value. 

The Lesson here should be pretty clear. It’s very easy to get carried away with 
fancy variable names and, in the process, bungle into lots of trouble. Remember 
KISS? (Keep It Simple, Stupid!) 


String Variables 

Who knows where some of these seemingly unrelated words come from? We 
have been using the letters A through Z to hold number variables. They are called 
numeric variables. We can use the same 26 letters to indicate string variables 
by just adding a “$”. 
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A$, for example is called “A STRING.” String variables can be assigned to 
indicate letters, words and/or combinations of letters, numbers, spaces and other 
characters. Type NEW then type: 

10 INPUT "WHAT IS YOUR NAME" ?A$ 

20 PRINT "HELLO THERE t "5A$ 

...and RUN. 

Hey-hey! How’s that for a grabber? If that, along with what you’ve learned in 
earlier chapters, doesn’t instantly make the creative juices flow, nothing will. 


That’s Two.... 

Two ways to PRINT words. The first, learned long ago, is to imbed words in 
PRINT statements (and is called “PRINTing a string”). The second, just seen, 
is to bring word(s) through an INPUT statement (called “INPUTting a string”). 
A third way is combining string variables with DATA statements. 

Change the program to read: 

10 READ A$ 

20 DATA TANDY 200 PORTABLE COMPUTER 
30 PRINT "SEE MY FOXY " 5A$ 

...and RUN. 

SEE MY FOXY TANDY 200 PORTABLE COMPUTER 

Let’s use 2 string variables to accomplish the same thing, and see how they work 
with each other. Rework the program to: 


1 0 READ A$ 

15 READ B$ 

20 DATA TANDY 200 > PORTABLE COMPUTER 



Intermediate BASIC 251 


30 PRINT "SEE MY FOXY " >A$i" "!B$ 

Analyzing the program. 

Line 20 contains two pieces of DATA, separated by a comma. 

Line 10 READs the first one. 

Line 15 READs the second one. 

Line 30 contains 4 PRINT expressions. 

The first one PRINTS SEE MY FOXY leaving a space behind the 
“Y.” String variables, unlike numeric variables, run everything 
together allowing us to insert spaces only where we want them. 

The second PRINT is A$, and it PRINTS TANDY 200. 

The third PRINT inserts the space which is enclosed in quotes. 

The fourth PRINT is PORTABLE COMPUTER. 

Together, they PRINT the entire message on the same line. 


A semi-colon between STRING variables does not cause a space to be PRINTed 
between them. We have to insert a space using " " marks. 


New String Variables 

So far we’ve used A$ and B$ as string variables. We actually have ALL the 
letters of the alphabet available for strings. And the numbers 0 through 9 too, 
plus any 2 letter combination. Valid string names include: 

X$ 

D8$ 

PI$ 

...etc. 

As with numeric variables, string variables can have any combination of up to 
40 upper case letters and numbers followed by the $ sign. 
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Shorthand 

There are several little “shorthand” tricks available. 

The first is the use of ? in place of the very common word, PRINT. Type NEW, 
then this line: 

10 ?" QUESTION MARK" 


...and LIST it. 

Awwk! The pumpkin turned into a coach. The Computer rewrote it to read: 
10 PRINT "QUESTION MARK" 

It also works at the command level. Try: 

?3*d and we get: 

12 

Try ?FRE(0) 

The ' is shorthand for REM and is especially nice when documenting the purpose 
of a Line. It makes program lines into multiple statement lines. 

' = : REM 

50 X = Z*C/4 + 33 ' SECRET EQUATION 

The only place ' can’t be used unaided is in a DATA Line. This problem can 
be overcome by actually adding a :. 

1000 DATA 1 02 > 3 » 9 >1 05 >10*1 : 'DATA IS IN 
1010 DATA 108 H »3 * 1 1 1 »G » 1 : 'SEQUENCE 

The Period (.) is of minimal value as a BASIC shorthand feature, but if we’ve 
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just typed a new Line, LISTed one, or EDITed one, we can repeat it without 
typing its number: 


110 REM TEST LINE 
then type: 


ENTER 


LIST* 


and Line 110 will be LISTed. This works even if the program has been RUN, 
which can be an aid in troubleshooting a Line without writing down its number. 
It also works with a Line that keeps popping up due to an error message. 


The Enter Key 

If you’re the very observant type, you noticed that program execution begins 
when you type RUN and the 32H3H key is PRESSED, not when it s released. Try 
it on the resident program. This is an important consideration when doing such 
precision things as setting the Real Time Clock. 


Use Of Quotes 

Technically, it is not necessary to use quotes to close off PRINT statements or 
LOADs and SAVEs. 

10 PRINT" WHERE IS THE END QUOTE? 


Note lack of second " 


RUNs just fine, but leave it off at your own peril. 


A BASIC interpreter that is “too forgiving” is like an airplane that is “too forgiv- 
ing.” It allows us to become sloppy, and when we really need all the skill we 
can muster, it is absent from lack of practice. You are strongly encouraged not 
to take these and other “cheap” short-cuts. 


INPUT? 

It’s possible to INPUT several variables with a single INPUT statement. Type 
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this NEW program, and respond with a cluster of 3 numbers separated by 
commas. It will “swallow” them all in one gulp. 

10 INPUT A ,B ,C 


...and RUN. 


However, if we fail to INPUT them all, separated by commas, the Computer 
alerts us with the special prompt, ?? that more DATA must be INPUT. To see 
the prompt, RUN again, but only INPUT one number, then then 

BREAK. 


RUN again, and try to INPUT letters instead of numbers. An Error Message 
instructs: 


? Redo from start 
? i 

There is extensive information in Appendix E dealing with Error Messages. 
Most often, Redo reminds us that we can’t INPUT a string into a request for a 
numeric variable. 

Optional Next 

FOR-NEXT loops don’t always have to specify which FOR we are NEXTing. 
This can be useful when the loops are nested. 

Type this NEW program: 


10 

FOR N = 1 

TO 

? . 

a— a 

PRINT N 


20 

FDR 0 = 

1 

TO 3 

: PRINT t Q 


30 

FOR 

R = 

1 TO 

4 : PRINT » " 

" ;r 

40 

NEXT : NE 

XT 

: NEX 

T 



RUN it several times to get the flavor. (Note how a comma was used to place 
PRINTing in the second zone.) 



WE JUE.T WORKED ^ I 
ON A PROGRAM ^w< 




THE COMPUTER ^ AM 
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This method of NEXTing should not be used if the program contains tests which 
might allow a loop to be broken out of. Better then to be specific, as we’ve 
already learned, or use this little short-cut. 

40 NEXT R >Q »N 


IF-THEN -ELSE 

ELSE is an interesting addition to our stable of conditional branching statements. 
It allows us an option other than dropping to the next Line if a test fails. Try 
this NEW one: 

10 INPUT "ENTER A NUMBER" !N 

20 IF N = 0 THEN PR I NT " 0 " ELSE PRINT "NOT 0" 

30 PRINT : LIST 

...and RUN. 

See how smartly we can use LIST in a program so after the RUN it LISTs itself? Great 
for learning and troubleshooting. 

Learned in Chapter 20 

Miscellaneous 

Multiple Statement Lines 
Variable Names 
Some shorthand 
Quotes 

Multiple INPUTting 
Optional NEXT 
String Variables 
Numeric Variables 


Statements 

IF-THEN-ELSE 
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The ASCII Set 


T 

I he purpose of this Chapter is to learn how to use ASC and CHR$. Before doing 
so however, we must learn about something called the ASCII set. (No, 
they’re not like the “horsey set.”) 

ASCII is pronounced (ASK’ -EE), and it stands for American Standard Code for 
Information Interchange. Since a Computer stores and processes only numbers, 
not letters or punctuation, it’s important that there be some sort of uniform system 
to specify which numbers represent which letters and symbols. The ASCII Chart 
in Appendix A shows the relationship between the number system and symbols 
as used in the Tandy 200. Take a minute to look at the chart. 

Type in this short program: 


10 

FOR N = 

: 33 TO 

255 


20 

PRINT 

"ASCII 

NUMBER 

" ?n ; 

30 

PRINT 

"STANDS 

FOR " 

5CHR$(N) 

40 

FOR T 

= 1 TO 

500 : 

NEXT T 

50 

NEXT N 




.and RUN. 
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As it RUNs, observe that the characters between ASCII code numbers 33 and 
255 are displayed. ASCII numbers from 0 to 32 are not printable but often serve 
important purposes. ASCII numbers 97 to 122 are just lower-case duplicates of 
numbers 65 to 90. Numbers 128 to 255 call forth special Graphics and foreign 
language characters. 


Control Codes 

Some of the ASCII numbers between 0 and 31 are used by the Tandy 200 for 
special purposes: 


Code 

Function 

7 

Beep 

8 

Backspace and erase current character 

9 

TAB(8,16,24,32,etc.) 

10 

Move cursor down one line 

11 

Move cursor to upper left comer 

12 

Clear the screen and move cursor to upper left comer 

13 

Move cursor to start of same line without erasing 


Change the program to read: 


10 

FOR N = 

1 TO 31 

20 

PRINT 

"ascii number";n; 

30 

PRINT 

"STANDS FOR " ?CHR$(N) 5 

35 

PRINT 

"CONTROL CODE" 


...and RUN again. 

There is very little uniformity internationally (or even within the U.S.) in the 
assignment of ASCII code numbers, except those used for the “Roman” letters 
and numbers. Fortunately, they handle most of our everyday needs. 


So What Is CHR$(N)? 

We have used CHR$ (pronounced character string) without describing it, but you 
undoubtedly figured it out anyway. CHR$(N) produces the ASCII character (or 
control action) for the specified code number N. It is a one-way converter from 
the ASCII CODE NUMBER to the ASCII CHARACTER and allows us to throw 
characters around with the ease of throwing around numbers. The word “string” 
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refers to any character (letter, punctuation or numeral). It may also be more than 
one character. 

Enter this simple program: 

10 INPUT "TYPE ANY NUMBER 33 - 125" 5N 
20 PRINT CHR$(N> 

30 PRINT : RUN 

...and RUN. 

Note Line 30. Instead of the more traditional GOTO 10, we used RUN, which 
RUNS the program again. Question: In what sort of program would this use of 
RUN have a different effect? Answer: Those containing DATA statements. 
They would all be restored each time RUN was executed. 

Almost all of our activity with ASCII numbers will be confined to the range 
between 33-125. 


EXERCISE 21-1: Using the ASCII chart (Appendix A) and the CHR$ 
function, create a program which will print the name: TANDY 200. 


ASCII Applications 

If you end up in the Big House serving time for computer fraud, the following 
little program will make up your license plate combinations, putting CHR$ to 
good use. 

Enter: 


1 CLS 

10 REM *L I CENSE PLATE NUMBER GENERATOR* 
20 FOR N = 1 TO 3 : PRINT I NT ( RND ( 1 ) * 1 0 ) 5 

30 NEXT N : PRINT " "5 

40 FOR N = 1 TO 3 

50 PRINT CHR$( INT (RND( 1 )*26 + G5) ) ? " "5 
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G0 NEXT N : PRINT : GOTO 20 

...and RUN. 

The RND generator in Line 20 PRINTs numbers between 0 and 9. Line 50 spits 
out numbers between 0 and 25. We add 65 to each number to make the sum fall 
in the range between 65 and 90. What do we see on the ASCII conversion chart 
between 65 and 90. Hmmmm??? 


What Then Is ASC($)? 

ASC is the exact opposite of CHR$(N). ASC is a one-way converter from the 
ASCII character to its corresponding ASCII code number. 

Type: 


10 

INPUT 

"TYPE NEARLY ANY 

CHARACTER" 

1 ? A$ 

20 

PRINT 

A$j" ASCII NUMBER 

IS" iASC( A$) 

30 

PRINT 

: GOTO 10 




.and RUN. 


It will print the AS CII num ber of almost all characters. (Try special code charac- 
ters which use the key, too.) It doesn’t work with the comma (,), the 

quotation mark ( ), the space bar and some others, but then strings can be a real 
mystery at times, as we will see. 


LINE INPUT 

To get around the problem of not being able to INPUT a comma, quotation mark, 
space bar and others, we use an advanced form of INPUT called LINE INPUT. 
LINE INPUT allows us to INPUT any character (that is assigned an ASCII code) 
as a string. Notice that the Computer will not insert a question mark when it 
asks for the text. 

Change Line 10 to: 

10 LINE INPUT "TYPE IN ANYTHING "5A$ 

...and RUN. Check comma, quote, space bar, etc. 



NOW, WWATfe ALU 
TVU<S, GABBLING ABOUT 
•'CWR4fM) OvuLASCd)?' 




< 


v} 


msi 
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Before we can really understand what we are doing, we must learn a lot more 
about strings. Before we could learn about strings, we had to learn something 
about ASCII. It’s like “catch Tandy 200.” 

Learned in Chapter 21 


Functions Statements Miscellaneous 


CHR$ 

ASC 


LINE INPUT 


ASCII Codes 


Strings in General 


Chapter 22— j 


R t was not our intention to “string you along” in the previous Chapter, but we really 
can’t understand how strings work without first understanding the ASCII concept 
of numbers standing for letters, numbers and other characters and controls. 


Comparing Strings 

One of the most powerful string handling capabilities is the ability to compare 
them. We compare the numbers between numeric variables all the time. How 
can we compare strings of letters or words? Well, why do you suppose we put 
the ASCII Chapter just before this one? RIGHT! The Computer can compare 
the ASCII code numbers of letters and other characters. The effective result is 
a comparison of what’s in the corresponding strings. 

Type in this NEW program: 

10 INPUT "WHAT IS YOUR NAME" !A$ 

20 IF A$ = "ISHKIBIBBLE" THEN 50 
30 PRINT "SORRY* WRONG NAME!" 
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40 END 

50 PRINT "FINALLY GOT IT!" 

...and RUN. 

If the Computer can compare THAT name, it should be able to compare anything ! 

During the process of comparing what you enter as A$ in Line 10 to what’s 
already in quotes in Line 20, the ASCII code numbers of each letter found in 
one string are compared, letter for letter, from left to right with those in the 
other. Every one must match, or the test fails. 


EXERCISE 22-1 1 Write a program that will compare two strings entered 
from the keyboard. PRINT them in alphabetical order. 


Strings and “quotes” are inseparable. You know this from earlier chapters where 
every PRINT“XXX” has its string enclosed in quotes. 


PRINT“XXX” is called a string constant. A$ is a string variable. 


RUN the above program again, this time answering the question with “ISHKIBIB- 
BLE”, enclosed in quotes. 

Sure — it ran OK. 


READing Strings 

A string can be INPUT with or without quotes. BASIC has become increasingly 
lenient about this matter, but every once in a while, the rules come up from 
behind and bite us if we play fast and loose with them. 

If we READ a string from a DATA Line, and it has no commas, semicolons, 
leading or trailing spaces in it, we don’t have to enclose it in quotes. We will 
never go wrong by always enclosing strings in quotes , but that can be a nuisance . 

Erase the resident program, and type in this next one which READs string data 
from a DATA Line. 


1 CLS 

10 READ A$ ,B$ »C$ 
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20 PRINT A$ 

30 PRINT B$ 

40 PRINT C$ 

100 DATA COMPUSOFT PUBLISHING 

110 DATA SAN DIEGO t CA » 92119 

900 PRINT : LIST 

...and RUN. 

Look carefully at the results. The display shows: 

COMPUSOFT PUBLISHING 
SAN DIEGO 
CA 


That’s fine, but where is the ZIP CODE? And why weren’t SAN DIEGO and 
CA printed on the same line? The answer, my friend, is blowing in the ...er, in 
the commas. 

Because of the commas in the DATA Lines, the READ statement sees 4 pieces 
of DATA, but only READs 3 of them. What do we have to do in order to PRINT 
a comma as part of a string? Right -- enclose it, or the string containing it, in 
quotes. 

EDIT1 10 


and change Line 110 to read: 

110 DATA "SAN DIEGO t CA" » 92119 
...and RUN. 

COMPUSOFT PUBLISHING 
SAN DIEGO > CA 
92119 




Strings in General 267 


Aaaah ! That’s more like it. Notice that we didn’t have to enclose all pieces of 
string DATA in separate quotes, but we could have. 

What would happen if we also enclosed entire DATA Line in quotes leaving the 
existing quotes in there? (Think about it, then try it. Every question raised has 
a specific purpose.) 

Our editor is so easy to use, let’s make it read: 

110 DATA" 11 SAN DIEGO t CA" t 32119" 


...and RUN. 

Awwk! Disaster... A syntax error? Yes, there is no straight-forward way to print 
quotes as part of a string constant, even by enclosing them inside another pair 
of quotes. The Computer jsut isn’t smart enough to figure out which quote mark 
is which. The usual way to overcome this BASIC language deficiency is to 
substitute ' for " inside other quotes. Let’s try it: 


110 DATA" 'SAN DIEGO t CA ' t 32113" 

...and RUN. 


NO THE tax on 

Cl^AC&TTE'S. WMI^K-eV 
l<^> NOT CALLED SYNTAX ! 




Ooops, ?OD (Out of Data) Error in 10? Of course. With quotes surrounding the 
whole works in Line 110, there are now just two pieces of DATA, and we are 
trying to read 3 pieces. Let’s change Line 10 to read two pieces: 

10 READ A$ 

...and RUN. 

There we go. Might look a little strange, but it proves the point and warns us a 
little about the “touchiness” of strings. 
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When it comes to strings, that classic old ballad from the hills is so appropriate: 

“Ah-cigareets, and whuisky, and wild computers, they’ll drive you 
crazy, they’ll drive you insane!’’ 

But, undaunted by this high class philosophy, we steer our vessel towards the 
next Chapter. 

As the sun sinks slowly in the west, tropical breezes fill the sails and water laps 
against the bow. Stars appear, and from the beach fires, plaintive native chants 
are heard, calling... 

Learned in Chapter 22 


Miscellaneous 

String comparison 

Special characters in Strings and DATA Lines 
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Measuring Strings 


O ~ — 

tunately, the LEN function makes that easy to find. Type: 

1 CLS : PRINT 

10 PRINT "TYPE A STRING OF CHARACTERS" 

20 INPUT A$ 

30 L = LEN ( A$ ) 

40 PRINT A$; n HAS" 5L ? "CHARACTERS" 

...and RUN. 

RUN several times entering your name and other combinations of letters and num- 
bers . Try entering your name , last name first with a comma after your last name . 

AHA! Can’t input a comma. How about if we put it all in quotes? Try again. 

Yep. Just like it said in the last Chapter. 
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LEN has one significant variation, and it’s not all that useful - unless you really 
need it. LEN can evaluate the length of a string placed between quotes. For 
example: 

PRINT LEN ( "ABC 11 ) 

displays the number 3 telling us there are 3 characters between the quotes. Like 
we said, this second way to use LEN has its limitations but does tell us the length 
of what’s there. 


DEFSTR -- For Thrill Seekers Only 

Those among us who attract trouble will love this next one. As if handling strings 
isn’t complex enough, this very powerful statement looks nice and clean but can 
be the greatest source of heartburn since the horseradish pizza. 

DEFSTR (pronounced “DEFine STRing”) allows us to define which variables 
are to be string variables, so we don’t have to use $ any more. (Hmm ... Uncle 
Sam could put some of this DEFSTR business to good use.) Add this Line: 

5 DEFSTR A 


and use the Editor to remove the $ in Lines 20, 30, and 40. Then RUN. 

Works great, doesn’t it? The letter A was declared by Line 5 to be a string vari- 
able. So what’s all the fuss about? 

Well, this is a very simple program, but let’s change Line 5 to read: 

5 DEFSTR A-Z 

which makes all letters STRing variables. 

...and RUN. 

Crasho again! Too much of a good thing. The L in Line 30 is now also a string. 
Since LEN gives us the length of a string as a number, it doesn’t set at all well 
with the L (really L string). Imagine the fun this can create in a long program. 


Good thing we can learn by our errors! 
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DEFSTR is best used to define individual variables. For example: 

DEFSTR A * N tZ 


defines only A, N and Z as string variables. 


It Came Upon A Midnight Clear 
(Is that like a midnight requisition?) 

When the Computer entered BASIC, 256 bytes of memory space were automat- 
ically set aside for use by strings —all strings combined. Not very much space 
if we’re into a biggie. At the command level, type NEW, then: 


PRINT FRE(A$> 


The Computer responds with 2 5 S 

Using FRE with a string variable asks the Computer “how much space is left for 
strings?” Not only A$, but all strings. The “A$” is just a “dummy” we have to 
use with FRE. B$, C$, or anything similar would work as well. PRINT FRE(X) 
(using most any character but without the $ sign) tells us the same thing as when 
we first entered BASIC - how much total memory space is available. 

The CLEAR command/statement allows us to change the amount of reserved 
string space to anything we want, up to almost the total available memory. 
Going the other way, we can eliminate all reserved space leaving all memory for 
nonstring use . Let’ s play around with some combinations and see what happens: 

CLEAR 0 

PRINT FRE ( A$ ) 

0 


Is that what you got? CLEARed 0 and got 0? Good. 
Type NEW, and measure again. 

NEW 

PRINT FRE ( A$ ) 

0 
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What? Still zero? That’s right. The CLEAR command is a high level one and 
is not affected by NEW. Entering BASIC automatically sets aside 256 bytes, 
and wherever we reset it, there it stays until it’s reset again. 

Press F8, and return to Main Menu. Record the amount of Free Bytes and return 
to BASIC. 

Type: 

PRINT FRE(A) 


and notice that we have 256 bytes less memory than in the Main Menu. That 
space was taken for string storage. 

Now type: 

CLEAR 0 
PRINT FRE(A) 

and the available memory has increased to the Main Menu value. 


Controlled CLEARing 

Try: 

PRINT FRE(A) 

CLEAR FRE ( A ) / 4 
PRINT FRE ( A$ ) » FRE ( A ) 

We just arbitrarily said, “Let’s set aside a fourth of the memory for use by strings.” 
C L E A R F R E ( A ) / 4 did it. If it turns out to be too much (wasteful) or too little 
(Computer will say 7 OS Error (Out of string Space)), it’s easily changed. A 
very adept programmer could even come up with an error-trapping routine that 
would CLEAR additional memory as needed if an ?OS message came through, 
and the operator wouldn’t even know that something happened. 


Be careful with CLEAR. It removes anything stored in variables. 
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PRINT FRE(X$) can also be used as a program statement. Try it in any program 
using strings to watch what happens. 

Type: 


CLEAR 25G 
to get us back to “normal.” 


Concatenation 

Concatenation? Concatenation??? Now what is that supposed to mean? Did you 
ever wonder who pays whom to sit around and think up such nondescriptive 
words? Must have been done on a government grant. Wait till Senator Proxmire 
hears about it. 

Concatenation (pronounced con-cat-uh-na’shun) is a national debt-sized word 
which means “add.” In our case it means “add strings together.” It’s easier to 
do than to pronounce. 

Type this NEW program: 

* 

10 CLS 

20 CLEAR 100 

30 FOR N = 1 TO 15 

40 READ A$ s B$ = B$ + A$ 

50 PRINT B$ 

00 NEXT N 

100 DATA ALPHA »BRAV0 tCHARLIE »DELTA 
110 DATA ECHO » FOXTROT fGOLF » HOT EL 
120 DATA INDIA tJULIETT »KIL0 »LIMA 
130 DATA MIKE fNO MEMBER > 0 S C A R » P A P A 

Check it carefully but don’t RUN it yet. The key Line is 40 which simply says 
B$ (a new variable) equals the old B$ (which starts out as nothing) plus whatever 
is in A$. It then cycles around and keeps adding what is in B$ to what is READ 
from DATA as A$. Now RUN. 


FO (26ej TH£ 

IT MEAN^/"ADP 
^»T<eiNG«^ -TTO- 
^ETMER " 
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Gotcha! We ran out of string space, says the 70S Error in 40. B$ just 
keeps growing and growing until the 1 00 bytes set-aside in Line 20 isn’t enough . 

How much is enough? Easy question, tough answer. The easiest way to find out 
is to stay within the noblest engineering tradition ~ add some more string space, 
and see what happens. It’s “cut and try” time. 

20 CLEAR 125 

...and RUN. 

Getting closer. Let’s try again. (This warms the cockles of any true experi- 
menter’s heart — and drives a true theoretical scientist right up the wall.) 
(Chuckle.) 

20 CLEAR 150 

...RUN. 

Still not enough. Looks close though, doesn’t it? 

20 CLEAR 175 


Sweet success. All due to our extensive planning, no doubt. 

Better do a quick 

PRINT FRE(A) 

to see that there’s plenty of free space left - and there is. 

The purist will keep experimenting and find out that we need exactly ... message 
garbled in transmission ... bytes of string space to make the program RUN, yet 
not waste any. (Hint: If you add the number of characters in the last group printed 
to those in the next-to-last group, you’ll be so close to the answer it may bite 
you. We could even figure that one out in advance.) 
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Anyhoo, the point of all this is concatenation. Line 40 just did it, and that’s 
about all there is to it. We added strings together. 

Not done playing you say? OK, you non-believers, have some fun with this 
simple program: 


10 

REN * 

CLEAR DEMO * 

20 

CLEAR 

35 

30 

n 

u* 

<r 

11 0 11 : B$ = " /" 

40 

PRINT 

A$ ? LEN ( A$ ) 

50 

A$ = 

A$ + B$ 

G0 

GOTO 

40 


We’ll soon learn how to tear strings into little pieces. We’ve just learned how 
to put them back together. (Somebody got something backwards here...) 

EXERCISE 23-1 : Use the LEN function to check the lensth of a string 
INPUTted from the keyboard. Print a message telling us if the string 
exceeded 1 0 characters. 


EXERCISE 23-2: Input a word from the keyboard and compare it to 
a secret password. If there is a match, print "CORRECT PASSWORD - 
ENTER". If not, print "WRONG PASSWORD - GET LOST". Store the 
ASCII number for each letter of the password in a DATA Line. READ 
each value, and use CHR$ to build (concatenate) the password string. 


Learned in Chapter 23 


Statements Functions Miscellaneous 


DEFSTR 

CLEAR 


LEN 

FRE(A$) 


Concatenation ( + ) 
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VAL and STR$(N) 


T 

I he “hassle factor” is very high when converting back and forth between strings 
and numerics. 


By definition, if we convert a numeric variable (can hold only a number) to a 
string variable (can hold almost anything), the content of that new string is still 
the original number. No letters or other characters were converted (except for a 
leading space) since they weren’t in the numeric variable to start with. 

Conversely, if we change a string variable to a numeric variable, we can t change 
any letters or other characters to numbers. Only the numbers in a string can be 
converted to a numeric variable. (Don’t get this confused with ASCII 
conversions.) 

If you’ll keep the two previous paragraphs in mind, it’ll save an awful lot of grief 
in dealing with strings. 


VAL 

Let’s give string-to-numeric conversion a shot. The VAL function converts a 
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string variable holding a number into a number, if the number is at the beginning 
of the string. Try this VAL program: 

1 CLS : PRINT 

10 INPUT "ENTER A STRING "5A$ 

20 A = U A L ( A $ ) 

30 PRINT "NUMERIC UALUE OF "?A$5" I S " 5 A 
90 PRINT : GOTO 10 

...and RUN. 

Try lots of different INPUTs, such as: 

12345 
ASDF 
1 23ASD 
ASD123 
1 1 2 ,3 
A fC 

and the same ones over again, but enclosed in quotes. 

The display tells all. 

BREAK out of the program, then take the $ out of Lines 10, 20, and 30 and 
RUN, INPUTting both numbers and letters. 

What you’re seeing is typical of the frustrations that bedevil string users who 
don t follow the rules. VAL only evaluates STRINGs, and we’ve put A, a numeric 
value, in where a string belongs. 

Let s put that A in quotes and see what happens. 

20 A = UAL ("A") 

...and RUN. 



r HON , WAIT U NTI L 
I TELL. YOU ABOUT 
VAL ^Tf?4 // 
IT'4, ABSOLUTE LV 
MIND BO 66 UNGI 
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No help at all! The rule remains unchanged. 


VAL converts a string variable holding a number into that number. 


Looking at the display, you can see all the other uses we are finding for VAL 
are just not in the cards. Remember this frustration and “The Rule” when you 
get in the thick of debugging a nasty string-loaded program. 


STR$ 

Now let’s try the opposite, converting a numeric variable to a string variable. 
Type this NEW program: 


1 

CLS : 

PRINT 


10 

PRINT 

"CONUERT THIS 

NUMERIC "? 

20 

INPUT 

“TO A STRING" 

5 A 

30 

A$ = 

STR$ ( A ) 


40 

PRINT 

"STRING UALUE 

of" ; a ; " is" ; a$ 

E)0 

PRINT 

: GOTO 10 



...and RUN using the same INPUTs we used when wringing out VAL. 


There it is. A short but very important Chapter. You should spend as much time 
on this one as any other Chapter. If you really learn the pitfalls in using these 
two powerful functions, the time spent will come back manyfold in future 
debugging time. 


EXERCISE 24-1: Enter your street address (e.g. 2423 LA PALMA). 
Use VAL to extract the street number. Add the number 4 to the street 
number and report this new number as your neighbor’s street number. 


EXERCISE 24-2: Write a program using STR$ to print the following 20 
store item stock numbers: 101WT, 102WT, 103WT, ... 120WT. Hint: 
Looks like a natural for a FOR-NEXT loop. 
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Learned in Chapter 24 
Functions 
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Having a Ball with Strings 


l_ 

EFTS, RIGHTS, MID$ 

Three different, yet very similar, functions are used for playing powerful games 
with strings. They are LEFTS, RIGHTS, and MID$. Let’s start with this 


program: 



10 

CLS : 

PRINT 

20 

S$ = " 

KILROY WAS HERE" 

50 

PRINT 

LEFT$(S$ tG) 

G0 

PRINT 

MID$(S$ »8 >3) 

70 

PRINT 

RIGHT$<S$ >4) 

90 

PRINT 

: LIST 

...and RUN. 
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The display shows: 

K ILROY 

WAS 

HERE 

(How about that one, nostalgia buffs?) 

Learning to use these functions is exceedingly simple. Study the program slowly 
and carefully as we explain what happened. 

LEFTS PRINTed the left-most 6 characters in the string named S$. 

MID$ PRINTed 3 characters in the string named S$, starting with the 
8th character from the left. (Count 'em.) 

RIGHTS PRINTed the 4 rightmost characters in the string named S$ . 

Let’s move some Lines around to exercise our new-found power. Change Line 
60 to Line 40: 

40 PRINT M I D$ ( S$ > 8 * 3 ) 

and we get: 

WAS 

K ILROY 
HERE 

Now change Line 70 to Line 30: 


30 PRINT RIGHT$(S$t4) 
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and we get: 

HERE 

WAS 

KILROY 




EtMEMBER ME 
ALLVOU VETS ^ 


These three functions can really do wonders with strings. Let’s type in a NEW 
program and examine each in more detail: 


10 

CLS 


20 

S$ = 

"KILROY WAS HERE" 

30 

FOR 

N = 1 TO 15 

40 

PR I 

NT " N = " ?N * 

50 

PR I 

NT LEFT $ ( S$ ,N> 

G0 

FOR 

T= 1 TO 200 : NEXT 

70 

NEXT 

N 


...and RUN. 

The “slow motion” picture tells it faster than we can in words. LEFTS picks off 
“ N ” letters from the left side of string, and we PRINT them. See how this could 
be used to strip off only the first three digits of a phone number, or the first letter 
of a name, when searching and sorting? 

Change Line 30 to read: 


30 FOR N = 1 TO 20 

...and RUN. 

As we see, even though there are only 15 characters in the string, the overrun is 
ignored. (Change Line 30 back to N = 1 TO 15.) 
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RIGHTS works the same way but from the RIGHT: 

Change Line 50 to read: 

50 PRINT R I GHT$ ( S$ »N) 

...and RUN. 

It’s the mirror image of LEFTS. 

Now let’s exercise MID$ and see where it goes. Change Line 50 to: 

50 PRINT li I D$ ( S$ »N # 1 ) 

...and RUN. 

It very methodically scanned the string, from left to right, picking out one letter 
at a time. 

With only a slight change we can make MID$ act like LEFTS . Change Line 50 to: 
50 PRINT MID$ ( S$ * 1 »N) 

...and RUN. 

It printed N characters counting from number 1 on the left. 

MID$ can also simulate RIGHTS. Change Line 50: 

50 PRINT MID$ ( S$ t 1S-N >N ) 

...and RUN. 

Would you believe RIGHTS backwards, one at a time? 

50 PRINT MID$ ( S$ » 16-N > 1 ) 

...and RUN. 



25 CHAPTERS 
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How about a sort of “histogram” type graph: 

50 PRINT MID$(S$ t N »N) 

...and RUN. 

(Make notes below for future reference. If all these examples don’t spark some 
ideas for your future use, I give up.) 


Let’s select a specific position in the string and print its character. Make the 


program 

read: 



10 

CLS 



20 

S$ = " 

KILROY WAS 

HERE" 

30 

INPUT 

"CHARACTER 

# TO PRINT" iN 

40 

PRINT 

M I D$ ( S$ >N , 

1 ) 

90 

PRINT 

s LIST 



...and RUN. 

Just to make the point, we can assign any of these statements to a variable. That 
variable could in turn be used in tests against other variables. Change: 

40 U$ = MID$(S$ > N fl ) 

50 PRINT U$ 

...and RUN. 

A short book could be written about these three functions, but I think we’ve made 
the point. They are used very frequently in complex sort and select routines. 
If we remember to dissect them into their simple components, they can be under- 
stood. The next section is a good example. 
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EXERCISE 25-1 : Write a program that asks the question "ISN'T THIS A 
SMART COMPUTER." Input a YES or NO answer. If the first character 
in the answer is a Y, print "AFFIRMATIVE." If the first character is an N, 
print "NEGATIVE.” Otherwise print “THIS IS A YES OR NO QUES- 
TION," and send control back to the INPUT statement. 


EXERCISE 25-2: READ in the following part numbers: N106WT, 
A208FM, and Z154DX. Use MID$ to find the numbers. PRINT the 
number with the largest numeric value. 


Searching With INSTR 

INSTR (pronounced “In-string”) is a function that can be of value when searching 
for a needle in a haystack. It compares one string against another to see if they 
have anything in common. 

Suppose we have a list of names and want to see if another name (or part of that 
name) is in our list. It’s the “part of’ which makes this operation very different 
from a straight comparison of name-against-name, which we already know how 
to do with ordinary string-against-string comparisons. Here we learn how to 
locate a name (and similar names) by asking for just a small part of it. 

Let’s start our NEW program by entering the list of Names: 


10000 DATA SMITH » JONES »FAHRQUART *BROWN 
10010 DATA JOHNSON ^SCHWARTZ tFINKELSTEIN 
10020 DATA BAILEY , SNOOPY > JOE BFTS PLK t* 

That was the easy part. 

We have to provide a means of READing these names, one at a time and comparing 
them, or parts of them, with the name or part of a name which we INPUT. Add 
these Lines: 


10 CLEAR 100 : CLS 

20 INPUT "ENTER THE NAME YOU NEED "5N$ 
30 PRINT 
40 READ D* 
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50 

IF D$ = "*" 

THEN 93 


G0 

IF I NSTR ( 1 i 

D$,N$) = 0 

THEN 

70 

PRINT N$ 5 " 

IS PART OF 

" ? D$ 

80 

39 

GOTO 40 
PRINT "END 

OF SEARCH" 

: END 


SAVE this program in memory as “INSTR”, we’ll be needing it later. 

Now this takes a bit of explaining: 

Line 10 CLEARS 100 bytes for strings and CLears the Screen (display). 

Line 20 asks you to INPUT the name or part of the name you want 
to locate. 

Line 30 PRINTS a blank space for easier reading to give this book 
some class. 

Line 40 READs a single name from our DATA file. 

Line 50 checks to see if we’re at the end of the DATA file, IF so, it 
branches to Line 99. 

Line 60 uses the INSTR function which does all the searching. The 
number following INSTR tells it to look at D$ starting with the 1st 
character to see if the characters we INPUT in N$ match the characters 
taken from D$. If its INSTR returns the value of 0, it means no such 
name (or part) was found, and we should READ the next one. If it 
was found, INSTR returns a number which is the number of characters 
it counted in N$ before a match was found. Since this number is not 
0, we drop to 

Line 70 PRINTs both what we’re looking for and what we found. 

Line 80 sends us back to READ another name from DATA. 

RUN it a few times to get the hang of what’s going on. 

Now that wasn’t too bad, was it? (‘Twamt nothin’, really.) It doesn’t matter 
how hard a program seems; when broken down to its individual parts, it isn t very 
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hard. Like we’ve pointed out before, “The BASICs Are Everything.” A little 
time beside the pool reflecting on the logic will do wonders. 


For those with only a silver fingerbowl, but no pool, these changes will show 
the inner machinations of INSTR. 


B0 L = I NSTR ( 1 ,D$ »N$) 

B5 IF L = 0 THEN 40 

70 PRINT N$5" IS CHARACTER#" ?L i " IN "5D$ 

RUN it through a number of times trying different combinations of letters. It 
really does make sense! 

To see the effect the starting number following INSTR has on our program 
change Line 60 to: S ’ 

S0 L = I NSTR ( 2 »D$ »N$) 

INSTR will now look at D$ starting with the 2nd character. 


RUN and type in the letter S. Notice how it skipped SMITH, SCHWARTZ and 
SNOOPY. Play around with the starting number in INSTR until you have a good 
handle on what it is doing to INSTR. 


EXERCISE 25-3: ReLOAD the "INSTR" program, and change the 

DATA 

in Lines 10000, 10010 and 10020 to: 


10000 DATA P -RUTH t OF -MANTLE t SB-MORGAN 

10010 DATA SS-LEOTHEL I P t P-KOUFAX 


10020 DATA C - CAMP ANELLA * P-FELLER,* 


What string would we enter to LIST the pitchers only? 


A. P 


B. PITCHER 


C. P- 


D. None of the above 
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Snarled String 

In the last Chapter we learned about STR$ which lets us convert a numeric 
variable to a string variable. For the purpose of confusion (no doubt), there is 
another “string-string” that does something completely different. Fortunately, it 
is written differently. 

STRING$(N,A) is a specialized PRINT modifier which allows us to PRINT a 
single ASCII character, represented by A, a total of N times. Quite simple, really. 

Type: 


NEN 



10 

CLEAR 

50 

20 

PRINT 

STR I NG$ ( 12 ,42) 

30 

PRINT 

"STRING* FUNCT 

40 

PRINT 

STRING*! 12 ,42) 


...and RUN. 

Wow! That really moves. It printed ASCII character number 42, which is a *, 
12 times, then PRINTed the phrase STRINGS FUNCTION, then PRINTed * 12 
more times. This just has to have some good applications. 

Suppose we need to type a “header” across the top of a report - let’s say the first 
line of it is to be solid dashes. What is the ASCII code for a dash? Forgot? me 
too. Everybody back to Appendix A to find the code number. 

Code 45 it is. We want to PRINT, 40 times, the character represented by ASCII 
code 45 . That’s the full width of a line on our display. The NEW program should 
look something like: 

10 CLEAR 20 

40 PRINT STR I NG$ ( 40 ,45) 

Let’s RUN it, and see what happens: 


70S Error in 40 


(Out of String space in Line 40) 
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Suckered in again! Tho STRINGS is really a sort of PRINT statement, it’s also 
a STRING function, so is subject to the string space restriction. Now what do 
we do? 

Change: 

10 CLEAR 40 

...and RUN. 

That’s more like it. 

An even easier way to use STRINGS is by replacing the ASCII code of the 
character we wish to PRINT with the actual character itself. (It must be enclosed 
in quotes.) This works fine with characters that really PRINT, such as letters, 
numbers and punctuation marks. Change Line 40 so the program reads: 

10 CLEAR 40 

40 PRINT STRING$<40 * " - " ) 

...and RUN. 

Works nice, doesn’t it, and we didn’t have to look up an ASCII code? 

As with most string functions, we can bring in the string via a string variable. 
This simple program shows a variation on the theme, and may trigger some ideas: 


10 

CLEAR 

100 


20 

PRINT 

"ENTER ANY 

LETTER 

30 

INPUT 

"SYMBOL" ; A$ 


40 

PRINT 

STRING* ( 40 » 

A* ) 

50 

PRINT 

: GOTO 20 



Play around with STRINGS a while. It’s really very helpful when we need it, 
particularly for giving our printouts some class. An obvious advantage is its 
ability to do a lot of PRINTing with very little programming. 
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SPACES 

The SPACES allows us to print from 0 to 255 blank spaces. 


For example: 


PRINT " A " i SPACES ( 20 ) » " B " 
will print A and B with 20 spaces between them. 


On The Lighter Side . . . 

The specialized string functions allow us to do all sorts of exotic things. Here l 
the beginning of a simple but fun program which uses LEN and MID$. You can 
easily figure it out, especially after you’ve seen it RUN. 

Enter: 


10 REM * TIMES SQUARE BILLBOARD * 

20 CLEAR 400 

30 CLS : N = 0 : READ A$ 

40 L=LEN(A$) : F = 1 
50 IF L >N THEN L = N + 2 
60 B$ = MID$(A$ »F »L) 

70 PRINT TAB ( 38-N ) iB$ 

80 IF N=38 GOTO 100 

90 N = N+ 1 : IF N< 38 GOTO 120 

100 L = L - 1 s F = F+ 1 : IF L<0 THEN L = 0 

110 IF L = 1 5 GOTO 30 

120 CLS : PR I NT : PR I NT : PR I NT : GOTO 50 

500 DATA " LUCKY LINDY HAS LANDED IN PARIS* ♦ 
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510 DATA" ♦♦MET BY LARGE CROWD AT LEBOURGET 
AIRPORT" 


...and RUN. 

Your assignment, if you choose to accept it, is to complete the program so it 
repeats, ends, or otherwise does not crash. 

Good luck!. 


Fsssss! 


Learned in Chapter 25 


Functions 


LEFTS 

INSTR 

MID$ 

RIGHTS 

STRINGS 

SPACES 
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What Price Precision? 


u 

nless told otherwise, Tandy 200 BASIC stores and displays variables to an 
accuracy of 14 digits. This is called “double precision” and is more than ade- 
quate for most applications. 


The old slide rule was accurate to only 3 digits. 


These high precision numbers are fine for large businesses and special scientific 
applications. However, we pay a price for this precision both in the additional 
memory it takes to store and process long numbers and in the extra time required 
to process them. 

When speed and preservation of memory space is more important than “double 
precision,” we can specify the faster and generally more useful “single precision” 
accuracy. By telling the Computer to go “single precision,” it will store and 
display numbers accurate to 6 digits. 

Enter this double precision program: 

10 CLS : PRINT 
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20 X = 1234567890987G54321 (Check 'em.) 

30 Y = ♦ 000000000 1 2345G789 (Check ‘em.) 

40 Z = X * Y 

50 PRINT X i "TIMES" iY 5" EQUALS" 5 Z 
90 PRINT : LIST 

and ... RUN. 

1 ♦2345678909877E+18 TIMES 
1 . 2345G789E- 10 EQUALS 152415787*62384 


Ummm-hmmm. A very large number times a very small number — both expressed 
in Exponential notation, and the answer is clipped to 14 places. (The ‘E’ stands 
for Exponential notation. E + 1 8 means the number ahead of it times 10 to the 
+ 1 8th power. E - 1 0 means the number ahead of it times 10 to the - 10th power) . 

Single Precision 

We can easily convert storage, processing and printing of X, Y and Z to single 
precision. The BASIC Statement is an easy one: 

15 DEFSNG A-Z 

DEFSNG stands for “DEFine as SiNGle precision,” and A-Z means “every 
variable from A through Z.” 

Add the Line and RUN. 

1 ♦ 23457E+ 1 8 TIMES 1*23457E-10 EQUALS 
15241G000 


Quite a difference, eh? We lost several digits out in the hinterland and reduced 
our accuracy from 14 places to 6, the 0’s in the answer simply holding the decimal 
place. 

Since we are only using 3 variables, X, Y and Z, there is really no point in 
DEFining more than these to be Single Precision. We can tell the Computer to 
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handle only these 3 as single precision and leave any other variables (of which 
there are none, right now) alone. Change Line 15 to: 

15 DEFSNG X-Z 

...and RUN. 

Same results. 


Overruled! 

There are times when we will want to temporarily override the DEFSNG decla- 
ration converting a number or answer back to double precision. Suppose we want 
Z to be printed as double precision. We override the Line 15 declaration by 
changing only those Lines which contain Z. Do it: 

40 Z # = X * V 

50 PRINT X 5 "TIMES" iY 5 "EQUALS" 5 Z# 

...and RUN. 


1 ♦ 23457E+ 1 B TIMES 1.23457E-10 EQUALS 
15241G308* 49 


Our “raw” data and the calculating was done in single precision, but our final 
answer is printed out with double-precision accuracy — just what we asked for. 
It goes without saying that since the input numbers are less accurate than the 
output number , the output can only be trusted to the same level of accuracy as the 
input. A classic case of Garbage In, Garbage Out. 

A very specific declaration (like the # which stands for “double precision”), 
always takes precedence over a global declaration like Line 15. (Global means 
“valid for the entire program,” not just one character or one line.) 


SiNGle Precision -- Simplified 

There’s another way to calculate with single precision but print the answer in 
double precision. Since double precision is the “default” mode, we can simply 
NOT include Z in the DEFine Line 15. 
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Change Lines 15, 40 and 50 and RUN. 

15 DEFSNG X t Y (or DEFSNG X- Y) 

40 Z = X * Y 

50 PRINT X ; "TIMES" »Y i "EQUALS" iZ 
Same results. 


Global Override 

It is possible to override the “global” DEFSNG declaration with a global double 
precision declaration. DEFDBL will change everything back to double pre- 
cision. Let’s try it by changing and adding these Lines: 

G0 DEFDBL X-Y 

70 PRINT X 5 "TIMES" »Y ! "EQUALS" iZ 
...and RUN. 

Good Grief — our “double-precision” numbers turned to zeros! 

Well, it turns out that X SiNGle precision is a completely separate variable from 
X DouBLe precision. It’s as different from X as is Y, or any other vari- 
able. If we want to use X and Y again as double-precision numbers, we have to 
go back and assign them values after declaring them to be DouBLe pre- 
cision. Hmmmm. This is getting complicated. 

A cheap and dirty way to show the point is to change Line 70 to: 

70 GOTO 20 


...and RUN — hitting the ElSIiai BREAK 
precision versions are printed in Line 50. 


keys after both single and double 


Line 60 redefines X and Y as double precision, then control returns to Line 20, 
and the calculations are performed again. (Fortunately, there is rarely reason to 
redefine a variable within a program.) 
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SiNGle Precision, Another Way 

Instead of a “global” declaration of accuracy, we can do it one variable at a 
time. Change the resident program to read: 


10 

C L S : 

PRINT 

20 

X ! = 

123456789098 7654321 

30 

Y ! = 

♦000000000123456789 

40 

Z ! = 

X ! * Y ! 

50 

PRINT 

X ! 5 "TIMES" ? Y ! > "EQUALS" iZ 


...and RUN. 

Same results as before. The ! sign declares that the variable letter preceding it 
is to be handled as SiNGle precision overriding the normal presumption that it 
is DouBLe precision. 

Remember, X! is not the same as X. It is an entirely different variable. Same 
with Y! and Z!. To nail this point down, add: 

15 X = 4 ♦ 321 
60 PRINT "X =" !X 

...and RUN. 

The values of X! and X had no effect on each other, did they? 


INTeger Precision 

In those frequent cases where the numbers used are integers (and in the range 
between —32768 and +32767), execution can be speeded up by declaring them 
to be INTegers using the % sign or the DEFINT statement. Type this NEW 
program: 

20 FDR N = 1 TO 3000 
30 NEXT N 
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30 PRINT : LIST 

...and RUN. 

Using a stopwatch or clock with a second hand, measure the time it takes for the 
3000 passes thru the FOR-NEXT LOOP. Should be around 10 seconds. By 
default, the Tandy 200 processed the values of N in double precision. 

Now, let’s declare N to be an INTeger (which is all the accuracy we need) and 
time it again. Add: 

10 DEFINT N 

...and RUN. 

Aha! It took only about 4 seconds. Cut the processing time by more than half. 

We can accomplish the same thing using specific declarations instead of the global 
DEFINT. Delete Line 10, and change the program to read: 

20 FOR NZ = 1 TO 4000 
30 NEXT NZ 
30 PRINT : LIST 

...and RUN. 

Same fast results. 

One More Way 

The conversion functions CSNG(#), CDBL(#) and CINT(#) provide 3 additional 
ways to declare numbers as SiNGle, DouBLe or INTeger precision. Enter this 
NEW test program: 

10 CLS ; PRINT 
20 X = 1 2345 ♦67890 
30 PRINT X 
40 PRINT CDBL(X) 
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50 

PRINT 

CSNG(X) 

60 

PRINT 

CINT ( X ) 

90 

PRINT 

: LI3T 


...and RUN. 


It tells the whole sordid story: 


12345*6789 
12345 * 6789 


12345*7 

12345 

Line 30 PRINTed the value of X the same as we specified in Line 20, 
accurate to 14 digits. There just weren’t 14 digits to print. 

Line 40 PRINTed the DouBLe precision value of X. 

Line 50 PRINTed the SiNGle precision value of X. 

Line 60 PRINTed the INTeger value of X. No surprises here. 

Let’s make the value of X negative, and see what happens. Change Line 20 to: 

20 X = -12345*67890 

...and RUN. 

Same answers, except negative. 

CINT acted like INT by removing all the numbers to the right of the decimal 
point. Unlike most other computers handling of INT in BASIC, it does not round 
up or down, just chops off the numbers to the right of the decimal point. 

To refresh our memory as to how INT usually works, try typing: 


PRINT INT (- 12345 . 67890 ) 
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We get — 12346. INT rounded down. 


This difference between the way the Tandy 200 and most other BASIC speaking 
computers handles CINT is worth noting. 


Do SiNGles Have More Fun? 

Now let s go back and declare the value of X to be SiNGle precision, change it 
to a positive number, and do all our PRINTing in SiNGle precision. The program 
should now read: 


10 CLS : PRINT 


20 

X ! 

= 

12345* 

67830 

30 

PR 

INT 

X ! 



40 

PR 

INT 

CDBL ( 

V I 
/\ : 

) 

50 

PR 

INT 

CSNG ( 

V 1 

) 

60 

PR 

INT 

CINT ( 

V 1 
/\ : 

) 

30 

PR 

INT 

: LIST 



...then RUN. 

and the display reads: 

12345*7 
12345 * 7 
12345*7 
12345 


All makes sense, and all quite predictable, isn’t it? 


Caveat 

Degrees of precision may not be the most inspiring subject, nor always seem to 
be the most consistent. But, if we’re at least aware of the differences in precision, 
we’ll not be caught off guard and be deceived by numbers that never were. 
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Learned in Chapter 26 


Statements Functions 


Miscellaneous 


DEFSNG CSNG 

DEFDBL CDBL 

DEFINT CINT 


Single precision (!) 
Double precision (#) 
Integer precision (%) 
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Intrinsic Math Functions 


T 

■ he BASIC language includes a number of mathematical functions. These 
math functions are all very straightforward and easy to use, but if your math 
skills are a bit rusty, you will want to refresh them to fully understand what we’re 
doing. We’ll keep everything here at the 9th grade Algebra level so there’s no 
need to panic (unless maybe you’re in the 6th grade... but even so, just hang on 
and you’ll be OK). 


INT(N) 

We studied the INTeger function in some detail in an earlier Chapter so we won’t 
cover that ground again. INT stores and executes whole numbers with no more 
than single precision accuracy. 


FIX(N) 

FIX is just like INT, but instead of rounding negative numbers downward, it 
simply chops off everything to the right of the decimal point. 

Try this simple test at the command level: 

PRINT INT (-12345* G7 ) 

306 


ENTER 
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produces - 1 2 3 4 G 


FIX (-12345*67) 
produces - 1 2 3 4 5 

The one we use depends on what we want. 


ENTER 


SQR(N) 

The SQuare Root function is simple to use. 
Type this: 


10 

INPUT 

"THE SQUARE ROOT OF" 5N 

20 

PRINT 

"IS" 5SQR ( N ) 

30 

PRINT 


40 

PRINT 

: GOTO 10 


...and RUN some familiar numbers. 

Another way to take the square (or any) root of a number is by using the up- 
arrow, or carat, above the #6 key. It, of course, means “raised to the power.” 
Finding the square root of a number is the same as raising it to the 1/2 power. 
Change Line 20 to: 

20 PRINT "IS" 5 N ' ( 1 / 2 ) 

...and RUN. 

The same logic which allows us to find the square root with the up-arrow will 
let us find any other root. (Even the thought of doing that in pre-computer days 
drove people mad.) Out of the sheer arrogance of power, let’s find the 21st root 
of any number. Change the first two Lines: 

IS INPUT "THE TWENTY-FIRST ROOT OF" iN 
215 PRINT " I S “ i N ( 1 /2 1 > 


...and RUN. 
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Now there is real horsepower! Problem is, how are we sure that the answers are 
right? Well, it’s easy enough to add a few Lines that compute the root back to 
its 21st power to find out. Let’s change the program to make it read: 


10 

INPUT 

"THE TWENTY-FIRST ROOT OF " 5 N 

20 

R = N •• < 1 / 2 1 ) 

30 

PRINT 

" I S " 5 R 

40 

PRINT 


50 

PRINT 

R5"T0 THE 2 1ST POWER = " 5 R 2 1 

60 

PRINT 

: GOTO 10 

and RUN. 



They come out pretty close, don’t they? This “proof’ process might not stand 
up under rigorous scrutiny, but the answers are correct. 


EXERCISE 27-1 : Pythagoras discovered that the sides of a right triangle 
always obey the rule: 

C 2 = A 2 + B 2 

where C is the longest side (hypotenuse). Stated another way-. "The 
length of side C equals the squa re root of the sum of the squares of 
sides A and B. (C = VA 2 + B 2 )." 

If side A = 5 and side B = 12, write a program to calculate the 
length of side C. 


ABS(N) 

ABSolute Value has a lot to do with signs or without them. The absolute value 
of any number is the number without a sign. If you’ve forgotten, this NEW 
program will quickly refresh the memory: 


10 

INPUT 

"ENTER 

ANY NUMBER" ?N 

20 

PRINT 

: A = 

ABS ( N ) 

30 

PRINT 

A 




Intrinsic Math Functions 309 


40 PRINT : GOTO 10 

...and RUN. 

Respond with various large and small, positive and negative, numbers, and 0. 
They all come out as they went in didn’t they? Except the sign is missing. 

LOG(N) 

No, a log isn’t what you build cabins with. But even the swiftest among us have 
to refresh their memory from time to time to keep all the details straight. 

A LOG (Logarithm) is an exponent. Exponent of what? The exponent of a base. 
What s a base? A base is the number that a given number system is built on. 
Aren’t all number systems built on 10? ‘Fraid not. 

10 3 = 1000 

10 is the BASE. 

3 is the LOG(exponent) and 
1000 is the answer. 

(Think it has something to do with “new math,” but I was too old to take it, too 
young to teach it and grateful for having missed learning it from those who didn’t 
understand it.) 

As if life isn’t complicated enough, the LOGarithm system is centered around 
what are called natural logs. Exactly what that means is the subject of another 
discussion, but we’re stuck with it anyway. Natural logs use the number 2.718282 
as their base. (Really makes your day, doesn’t it!) Some BASICs provide a 
second LOG option using 10 as the base, as in our decimal system, but making 
the conversion isn’t too bad — and we still do have to live with it. 

Type this NEW program: 

10 INPUT "ENTER ANY POSITIVE NUMBER" ?N 
20 PRINT : L = LOG ( N ) 

30 PRINT " 


THE LOG OF" 5N ? 



Intrinsic Math Functions 311 


40 PRINT "TO THE NATURAL BASE = "!L 
50 PRINT : GOTO 10 


The LOG function is not valid for negative numbers or zero. 


...and RUN. 

Ummm Hmmra. Can’t relate to the conclusion? Respond with the number 100, 
and we should get the answer 4.605170185988. Being in double precision, the 
answers are a bit messy. After we learn the principles, you can change the PRINT 
Lines to reduce accuracy to Single Precision or below. 

What it means is, 2.718282 to the 4.60517 power = 100. Lay that one on them 
at the next meeting of the Audubon Society, and they’ll think you’re weird for sure. 

Let’s jack this thing around to where the vast majority of us who have to work 
with LOGs can use it... into the decimal system. 

Decimal -based Logs are called “common,” or “base 10,” Logs. Add these Lines: 

45 PRINT "THE LOG OF" ?N 5 

47 PRINT "TO THE BASE 10 = " 5 L* . 4342945 

...and RUN using 100 as the number. 

Ahhh! That’s more like it. We can clearly see that 10 to the 2nd power equals 
100. It’s good to be back on relatively solid ground. 

The magic conversion rules are: 

To convert a natural log to a common log, multiply the natural log 
times .4342945. 

To convert a common log to a natural log, multiply the common log 
times 2.3026. 


And that’s the name of that tune. 
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This final NEW program scoops it all up and spreads it out: 

10 REM * LOGARITHM DEMO * 

20 CLS : PRINT 

30 INPUT "ENTER A POSITIVE NUMBER" 5N 
40 PRINT 

50 PRINT "NATURAL LOG" 5 
G0 PRINT TAB < 20 ) 5 "COMMON LOG" 

70 PRINT LOG(N) i TAB ( 20 ) iL0G(N)*«4342345 
80 PRINT : GOTO 30 

EXP(N) 

EXP is sort of the opposite of LOG. EXP computes the value of the answer 
given the EXPonent of a natural log. (Another winner.) 

2.718282 raised to the EXP power = the answer 

Type in this NEW program: 

10 INPUT "ENTER A NUMBER" !N 

20 A = EXP(N) 

30 PRINT " 2*718282 RAISED TO THE"5N; 

40 PRINT " POWER =" 5A 

50 PRINT : GOTO 10 

...and RUN responding with a number smaller than about 145. 

The number we entered is the EXPonent, so it’s easy to respond with a number 
too big for the Computer and cause it to OVerflow . 

As a benchmark against which to test the program, enter this number: 


4 * 6051702 
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The BASE of the natural log system raised to this power should equal 100 (or 
be very close). 

When you’re done playing, respond with 150 to seethe Overflow Error message. 

If you are really into math and logs, do the exercise below checking the results 
against a LOG table. If you’re not too comfortable with all this ... forget it, and 
try making a log cabin with the remainders! 


EXERCISE 27-2: (for math fans only) Convince yourself that LOG 
and EXP functions are inverses of each other. (Hint: LOG(EXP(N)) = 
N.) Try usins the two functions in the opposite order, then try both 
positive and nesative values for N. Why do the nesative values create 
havoc? 


Learned in Chapter 27 


Funct ions Miscellaneous 

INT 
FIX 
SQR 
ABS 
LOG 
EXP 


Natural Logs 
Common Logs 
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ince this is about as deep as we’ll get into mathematics, I have to assume you 
know something about elementary trig. 

Trigonometry, of course, deals with triangles, their angles and the ratios between 
the lengths of their sides. In the triangle below, the Sine (abbreviated SIN) of 
angle A is defined as the ratio (what we get after dividing) of the length of side 
a to the length of side c. COSine and TANgent are defined similarly: 


SIN A = a/c 
COS A = b/c 
TAN A = a/b 


From these relationships, we can find any ratio if we know the corresponding 
angle. Let’s try this simple program: 



10 PRINT "ENTER AN ANGLE" 

20 INPUT "BETWEEN 0 AND 30 DEGREES" 5A 


314 



The Trigonometric Functions 315 


30 S = S I N < A* ♦ 0 1 74533 ) 

40 PRINT "THE SIN OF " 5 A 5 " DEGREES IS'SS 
50 PRINT : GOTO 10 


...and RUN responding with any number between 0 and 90. 

It really works! Try the old “standard” angles like 45°, 30°, 60°, 90°, 0°, etc. 

Unless you’re right up to snuff on trig, Line 30 undoubtedly looks strange. Well, 
it turns out that most Computers think in radians, not degrees (always has to be 
some nasty twist doesn’t there...!). A radian is a unit of measurement equal to 
approximately 57 degrees. In order to convert from degrees (which most of us 
use) to radians, we changed the degrees we INPUT in Line 20 to radians. The 
SIN function will not work correctly without this conversion. 

To convert angles from degrees to radians, multiply the degrees by 
0.0174533. 

To convert angles from radians to degrees, multiply the radians by 
57.29578. 

Failure to make these conversions correctly is by far the greatest source of 
Computer users’ problems with the trig functions. 

COSine and TANgent work the same way. Change the resident program to: 

10 PRINT "ENTER AN ANGLE" 

20 INPUT "BETWEEN 0 AND 90 DEGREES" 5A 
30 C = COS ( A* « 0174533) 

40 PRINT "THE COS OF " 5 A 5 " DEGREES IS"5C 
50 PRINT : GOTO 10 

...and RUN. 

Most answers are pretty close, very good for such a small Computer. We know 
that COS(90) should be zero. Unfortunately, the Computer is slightly off because 
it calculates these functions by approximation. It’s doing the best that it can... 
Honest! 



NO, NO, NO ! &AD/AMG 
HADN'T GOT ANVTHINO 
TO DO WITH ATOMIC 
ENEt^SV / 
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For TANgent, RUN this program: 

10 PRINT "ENTER AN ANGLE" 

20 INPUT "BETWEEN 0 AND 90 DEGREES" 5A 
30 T = T AN ( A* ♦ 0 1 74533 ) 

40 PRINT "THE TAN OF " 5 A 5" DEGREES I S " 5 T 
50 PRINT : GOTO 10 


The TAN function is not even defined for 90°, tho the Tandy 200 will TRY to calculate 
it for us. 


This next NEW simple program displays all three major trig functions at the same 
time. Note in Line 30 we divide our incoming angle by 57.29578 instead of 
multiplying it by 0.0174533. The results are the same. 

10 CLS 

20 PRINT : PRINT "ENTER AN ANGLE" 

30 INPUT "BETWEEN 0 AND 90 DEGREES" 5A 
40 A = A / 57 ♦ 29578 : PRINT 
50 PRINT "ANGLE = " » A*57 . 29578 
80 PRINT "SIN = " 5 S I N ( A ) 

70 PRINT "COS = " 5 COS ( A ) 

80 PRINT "TAN =" 5 T AN ( A ) 

Inverse Trig Functions 

The opposite of finding a ratio between two sides of a triangle when an angle is 
known, is finding an angle when the ratio of two sides is known. There are three 
functions commonly used in trig to do this, but most computers only make 
provisions for one, called ATN (Arc of the TaNgent). 

The following simple program takes the angle we INPUT, converts it to radians 
and computes and PRINTs its TANgent. Then, as a “proof check,” takes that 
TANgent value and reverses the process by computing its arc (angle). 
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The letter “I” in Line 60 stands for “inverse” (sort of the “opposite”). ArcTANgent 
is commonly referred to as an “inverse function.” In Line 40 we convert from 
degrees to radians before the trig computation. In Line 60 the conversion from 
radians to degrees after the trig computation. 

1 REM * ATN DEMO * 

10 CLS : PRINT 

20 PRINT "ENTER ANY ANGLE" 

30 INPUT "BETWEEN 0 AND 90 DEGREES" 5A 
40 T = TAN ( A/57 , 29578 ) : PRINT 

50 PRINT "TANGENT =" 5T 
60 I = ATN(T) * 57 ♦ 29579 
70 PRINT "ARC OF THE TANGENT ="5I 

If you’re one of those rare types who is very familiar with trig, you can probably 
throw numbers around in such a fashion that the other 2 “inverse” trig functions, 
ARCSIN and ARCCOS, are not needed. But for those of us who still get confused 
when we run out of fingers, the last two functions are built into a simple NEW 
program by way of special routines. The accuracy is close enough for “govern- 
ment” work. Give it a try: 


10 

REM * 

INU FUNCTION DEMO PROGRAM * 

20 

INPUT 

"ENTER 

THE RATIO OF 2 SIDES 

30 

CLS : 

PRINT 


40 

AS = 

2 * ATN(R/( i+SQR(ABS< 1-R*R) ) 


* 57 ♦ 

29578 


50 

AC = 

90 - AS : 

PRINT 

60 

PRINT 

"RATIO 

= " ;r 

70 

IF A B S ( R ) > 1 THEN 110 

80 

PRINT 

"ARCSIN 

= " 5 AS : PRINT" ARCCOS = 

90 

PRINT 

" ARCTAN 

= " 5 ATN ( R ) *57 . 29578 


100 PRINT : GOTO 20 
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110 PRINT "ARCSIN = U 11 : PR I NT " ARCCOS = U" 
120 PRINT "ARCTAN = M 5 ATN ( R ) *57 ♦ 29578 
130 PRINT : GOTO 20 

. . .and RUN. Respond with a ratio number between — 1 and + 1 . The rest should 
now be obvious. 

Other trig function routines can be found in The BASIC Handbook, available from 
Compusoft Publishing and most book stores. 


Remember, when our ratio moves outside the range —1 to 1, ARCTAN and 
ARCSIN are both “undefined.” Also, ARCTAN and ARCSIN produce angle 
measures between —90 and 90 degrees, but ARCCOS can range between 0 and 
180 degrees. 

Learned in Chapter 28 
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Video Display Graphics 


A 

i \nd It Draws Pictures Too! 

Our Tandy 200 can draw an endless variety of pictures on the Video Display. 
We will learn some of the basic procedures and capabilities in this Chapter. After 
that, what you create is limited only by your own imagination. Who knows... 
you may write a graphics program artistically equivalent to the Mona Lisa. 

Now, the 2 most basic of the 4 graphic commands: 

PSET turns on (darkens) a particular section or block on the display. 

PRESET turns off (lightens) a particular block. 

For graphic use, the display is divided into a large number of blocks (see the 
Video Display Worksheet on the next page). To get a good idea of how many 
blocks will cover the display, turn the Display Adjustment Dial until the display 
becomes fairly dark. If we look close enough, we can see a grid of very thin 
lines chopping the display into many little blocks. Each of these blocks repre- 
senting a “part” of the display is called a “pixel,” another computer buzz word 
which stands for Picture Elements. 

Each block is a square section 1/48 the size of a regular character (1 character 
uses 48 pixels), and each pixel has its own “address.” 

322 
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For example: 


PSET (55 * 32 ) 


means — “turn on the light” at the junction of 55th “H” Street and 32nd “V” Avenue. 


0 1 2 3 4 5 



H is the horizontal address counting across from the left-hand side of the display. 
V is the vertical address counting down from the top of the display. All “street 
addresses” start counting from the upper left-hand comer. H and V as used here 
are the same as X and Y used in the first quadrant of mathematical coordinate 
grid systems . H and V are more descriptive and easier to work with while learning . 

Type in: 

50 CLS : PSET (55 * 32 ) 

...and RUN. 

Look carefully for the dot because it is very tiny (there are approximately 32 dots 
per inch). Check the Video Display Worksheet carefully to find the address of that 
pixel. Did it show up in about the right place? 

Careful now, don’t mess up the display. Type: 

50 PRESET (55 >32 ) 

...and RUN. 



0 1 2 3 4 5 6 7 8 9 1011 121314151617181920212223 242526 272829303132333435 363738394041424344454647 4849505152 535455565758596061626364 
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How about that. We found the ON-OFF switch! 

Want to really press your luck? Try re-darkening the block. That’s right, type: 

50 PSET (55 ♦ 32 ) 


...and RUN several times. 

Oh well, can’t win ’em all. Why didn’t it work? It did work! Then why did the 
fool light keep moving up? 

Answer: The Line Feed keeps moving it up away from its original address. When 
the cursor gets to the bottom of the display, another line feed moves the display 
up and the block gets moved up accordingly. 

The point of all this obviously is that we can control whether each block on the 
displays is dark or white (on or off) by “talking” to it at its individual address 
with PSET and PRESET statements. 


Flying Saucers or Lightning Bugs? 

If one has an ON-OFF switch, what does one do with it? With a little imagination 
we could create blocks that go ON and OFF, to attract attention ...by blinking. 
This simple program shows how to set up a “blinker.” RUN it: 


10 CLS 
20 H = 120 
30 U = G0 
40 PSET ( H » U ) 

50 FOR X = 1 TO 50 : NEXT 
G0 PRESET ( H » V ) 

70 FOR X = 1 TO 50 : NEXT 
80 GOTO 40 


Simply changing FOR-NEXT loop values at 50 and 70 controls the blinking rate. 
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Once Again, More Heavily 

In the Horizontal direction, there are 240 addresses, numbered 0 to 239. 0 is at 
the far left, 120 is near the middle and 239 is at the far right. 

In the Vertical direction, there are 128 light blocks addresses, 0 is at the top and 
127 is at the bottom. 

The statement “PSET(H,V)” darkens the block which is the Hth block from the 
left in the horizontal direction and the Vth one down from the top in the vertical 
direction. And, you ve figured out that PRESET works in the same way except 
that it lightens the block. 

Let’s exercise it more aggresively. This NEW program will darken any one block 
of your choosing. Type: 


10 

INPUT 

"HORIZONTAL 

< 0 TO 239 ) " 5 H 

20 

INPUT 

"VERTICAL (0 

TO 127 ) " ; V 

30 

CLS 



40 

PSET ( H 




...and RUN a number of times using various values of H and V. 


You may have noticed that if a block is lit in the upper left-hand comer, the Ok 
will destroy it. If it lands on the flashing cursor, it will alternate between dark 
and light. Try H 3 and V = 4. Then H = 3 and V = 12. We can avoid 
this problem by not returning control to the prompt - by adding: 

99 GOTO 99 


This Line locks the Computer in an endless loop. RUN the program trying value 
°f H = 5 and V = 5. To break the loop, press the fliliai BREAK. 


CLS is a single statement which PRESETS every block on the display to “OFF” 
in one operation; we don’t have a similar statement to turn them all “ON.” 


However, we can easily write a program that “darkens” or “paints” the entire dis- 
play. It uses one CLS (not really a must, but always a good habit to use in 
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graphics programs), two FOR-NEXT loops and one endless “locking loop.” Type 
this: 


10 CLS 

20 FOR H = 0 TO 239 
30 FOR V = 0 TO 127 
40 PSET(H»U) 

50 NEXT V 
G0 NEXT H 
99 GOTO 99 


...and RUN. 

The program fills the display from left to right. Redesign it so it starts at the top 
and fills to the bottom. 


Answer: 



10 

CLS 


20 

FOR U = 0 TO 

127 

30 

FOR H = 0 TO 

239 

40 

PSET (H »V> 


50 

NEXT H 


G0 

NEXT V 


99 

GOTO 99 



Rewrite the program so it starts painting at the bottom and fills to the top. 

Answer: 

10 CLS 

20 FOR U = 127 TO 0 STEP-1 
30 FOR H = 0 TO 239 



the sistine 

CHAPEL'?? 

HEV, <SFMME 
A BREAK l 

m 
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40 P S E T ( H > U ) 
50 NEXT H 
G0 NEXT U 
39 GOTO 30 


Did you forget it could STEP backwards? 

Rewrite it so it starts painting at the right-hand side and fills to the left-hand side. 

Answer: 


10 CLS 

20 FOR H = 233 TO 0 STEP-1 
30 FOR V = 0 TO 127 
40 PSET(H»V) 

50 NEXT U 
B0 NEXT H 
93 GOTO 99 


Just for practice, RUN the program using other positive and negative STEP 
increments... 

Fantastic — now we can paint the old bam at least four ways! 


EXERCISE 29-1: Write a program which will allow painting only a 
small part of the display (you determine which part). Allow keyboard 
INPUT of the starting and ending block numbers in both the horizontal 
and vertical directions. 


Getting the hang of it? Great. Enough playing with blocks ... let’s draw some 
lines. Erase the resident program. 


You haven’t forgotten how to do that have you! Type ERASE ... no, no! Type NEW. 
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We’ll start our artistry with a straight line. This program PSETs a straight 
horizontal line across the entire display. Type: 

10 INPUT "VERTICAL (0 TO 127) "5V 
20 CLS 

30 FOR H = 0 TO 239 
40 PSET(HtV) 

50 NEXT H 
99 GOTO 99 

...and RUN several times. 

We can just as easily create a straight vertical line. Try this. 


10 INPUT "HORIZONTAL (0 TO 239)"?H 
20 CLS 

30 FOR V = 0 TO 127 
40 PSET(H»V) 

50 NEXT V 
99 GOTO 99 


...and RUN a number of times. 


Now, let’s see if we can modify this last program to allow us to INPUT both the 
starting vertical address and the length (in pixels): 


12 INPUT " VERT START ADDR# (0 TO 127) " 5 V 
14 INPUT " NO ♦ OF VERTICAL PIXELS" ?N 
1G IF V + N < 129 GOTO 20 

18 PRINT "TOO MANY VERTICALS" 

19 END 

30 FOR V = V TO V + N - 1 
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Now that we can draw straight lines, we can form figures — like squares and 
rectangles. This program forms a rectangle. After NEW, type: 


10 

INPUT "HORIZ START NO, 

(0 TO 239) 

" ;h 

20 

INPUT " MERT START NO, 

(0 TO 127)" 

5V 

30 

INPUT "LENGTH OF SIDES 

(0 TO 127) 

" ;s 

40 

CLS 



50 

FOR L = H TO H + S 



60 

PSET ( L tU ) 



70 

PSET ( L »y + S ) 



80 

NEXT L 



90 

FOR M = U TO V + S 



100 

PSET ( H »M ) 



1 10 

PSET ( H + S »M ) 




120 NEXT M 
939 GOTO 999 


Remember, we can’t draw pictures off the display. If you get an error message like: 
?FC Error in 70, that means you tried to do it. 


...and RUN. 


You may want to come back later for some heavier study. 


Press on... 


A Little Diversion 

All our graphics work so far has been drawing dark lines on the display . We can 
do just the reverse by painting the display dark first, then lightening the desired 
areas with PRESET. This NEW program draws a white horizontal line on a black 
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background. To save time, we will only darken part of the display. Type: 

10 INPUT "VERT. POSITION (0 TO 63)" ?U 
20 IF V > S3 THEN 10 
30 CLS 

40 FOR H = 0 TO 60 
50 FOR J = 0 TO S3 
G0 PSET ( H # J ) 

70 NEXT J 
80 NEXT H 

90 FOR H = 0 TO G0 
100 PRESET <H»V> 

110 NEXT H 
999 GOTO 999 

...and RUN. 

If you’re interested, go back and try similar easy modifications to other demon- 
stration programs and have some fun with these reverse (or “negative”) displays. 

EXERCISE 29-2: Rewrite the last program to speed up the display 
"painting,” using the entire display. HINT: Use the CHR$ function and 
the ASCII chart in Appendix A. 


Learned in Chapter 29 


Statements Miscellaneous 


PSET 

PRESET 


Pixel 





addresses of PSET in the FOR-NEXT loop. Try this next program to draw 
a diagonal line: 


NEW 

10 INPUT "HORIZ START NO, (0 TO 239>";H - 
20 INPUT "VERT START NO, ( 0 TO 127)" SV 
30 INPUT "DIAGONAL LENGTH" 5D 
40 CLS 

50 FOR L = 0 TO D - 1 
60 PSET (H + L fV + L) 

70 NEXT L 
99 GOTO 99 


333 
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Once we have the diagonal line, we can form a right triangle by adding: 

70 PSET<H»V+L> 

80 PSEKH + L »V + D) 

90 NEXT L 


70 PSEKH + D tV + L) 

80 P S E T ( H + L > M ) 

90 NEXT L 

Try them both. 

Question: What is the difference in the displays? 
Answer: They are inverted, mirror images of each other. 


Remember, you can’t draw pictures off the display. 


Broken Lines 

In every prior graphics program, we could have made the lines “broken” by 
introducing a STEP other than “1” in the FOR-NEXT loops. For example, try 
drawing a broken horizontal line with this NEW program: 


10 INPUT "VERTICAL ADDRESS (1 TO 127)" 5V 
20 INPUT "STEP SIZE" 5 S 
30 CLS 

40 FOR H = 0 TO 239 STEP S 
50 PSET(HtU) 

60 NEXT H 
99 GOTO 99 
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RUN this program with various values of S. Note that as you increase S, the 
line is drawn much faster (since the Computer has less work to do). In fact, for 
S = 10 or more, we can hardly see the line being drawn. This is how a TV 
picture is created — since it too is drawn one unit at a time (but so fast we don’t 
notice the “drawing time”). 

Make the following program changes: 


1 1 

REM * V 

MUST BE 

LARGER THAN 0 * 

55 

PRESET ( H »U- 1 ) 


70 

c 

ii 

4 * 

1 


80 

IF V < 

128 GOTO 

40 


If S is small, we can see each line being formed and cleared. But if S is fairly 
large (try 20), the line seems to move in somewhat “old-time movie” fashion. 
This is the way the illusion of motion is created on a TV set and in some of the 
popular video games. 

Try this NEW program. It paints a dot on the display and moves it down. 


10 

INPUT "HORIZONTAL START 

( 0 TO 239 ) " 5H 

20 

INPUT "VERTICAL 

START (1 

TO 127) " 5 V 

30 

CLS 



40 

PRESET ( H »V- 1 ) 



50 

PSET ( H »V) 



G0 

U = U + 1 



70 

IF V < 128 GOTO 

40 


98 

GOTO 99 




Having problems spotting the dot? Don’t worry, it isn’t your eyes. They action 
is so fast that the pixel doesn’t have a chance to turn fully on before PRESET 
turns it off. Add this delay Line to give PSET a chance to turn on the pixel: 


G5 FOR X 


1 TO 20 : NEXT X 
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The PRESET statement simply followed along behind and erased the dot from 
the last PSET. 

What happens if we omit PRESET? When you try it, remember to change Line 
70 to GOTO 50. 

Details ... Details 

PRESET and PSET don’t work with negative coordinates. Try changing Line 70 
back to GOTO 40 and take a look at Line 40: 

40 PRESET < H »V-1 > 


If you INPUT V equal to 0, then the V address really becomes V-l . . .-1 . A no-no! 


More of the Good Stuff 

We can just as easily move a point to the right with by substituting these Lines: 


10 

INPUT "HORIZONTAL START (1 TO 239)" iH 

20 

INPUT "VERTICAL 

START (0 TO 127) " iV 

30 

CLS 


40 

PRESET (H-l »V) 


50 

PSET ( H ,V> 


60 

H = H + 1 


65 

FOR X = 1 TO 20 

: NEXT X 

70 

IF H < 240 GOTO 

40 

99 

GOTO 99 



EXERCISE 30-1 : Chanse the last two prosrams so that they move the 
dot up and to the left respectively. 


Now, let’s have the dot move down until it strikes a barrier. The NEW program 
will read: 


10 INPUT "HORIZONTAL START (0 TO 23S)"?H 
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20 INPUT "VERTICAL START (1 TD 50) "5V 
30 INPUT "LOWER BARRIER (70 TO 127)" SB 
40 CLS 

50 FOR M = 0 TO 239 
B0 PSET(MtB) 

70 NEXT M 
80 PRESET (H » V - 1 ) 

90 PSET(HtV) 

100 g = g + i 

110 IF V < B THEN 80 

999 GOTO 999 

The dot appears to strike the barrier and stick to it. 

Now let’s have the dot start in the middle and ricochet from both the top and the 
bottom: 

NEW 

10 CLS 

20 FOR H = 90 TO 150 
30 PSET ( H » 35 ) 

40 PSET ( H 1 90 ) 

50 NEXT H 
60 V = 44 
70 D = 1 

80 PRESET ( 120 # V-D > 

90 PSET ( 120 » V ) 

100 FOR X = 1 TO 20 : NEXT X 

110 V = V + D 

120 IF V = 91 THEN 140 

130 IF M <> 34 THEN 80 
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140 U = U - 2 * D 
150 D = -D 
1G0 GOTO 90 

You may want to adjust the Display control to make it easier to see the dot 
bounce. The change in direction of the moving dot is caused by: 

150 D = -D 

Note that we must be careful not to accidentally erase part of the boundary. To 
do this, we move the dot back 2 steps with Line 140 (after moving it forward 1 
in Line 110), but we also return to the PSET in 90 rather than to PRESET in 
80. Tricky, tricky. You can kill the whole day messing around with this silly 
bouncing ball. Rather good resilience, eh? 

SAVE this program for use in the next Chapter. 


Real Moving Pictures 

We can draw whatever figures we like. Let’s try a stick man. First, his legs: 


NEW 

10 CLS 

20 H = 64 

30 FOR K = 0 TO 7 

40 PSET(H + K 1 80 + K ) 

50 PSET (H-K f 80 + K ) 

60 NEXT K 

999 GOTO 999 


...and RUN. 
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Then add his body and arms: 


70 FOR K = 0 TO 5 
80 PSET<H + K ,74 + K ) 
90 PSET ( H , 74 + K ) 

100 PSET (H-K ,74+K) 
110 NEXT K 

...and RUN. 


And finally his head: 

120 PSET ( H >72 ) 
130 PSET ( H+ 1 ,73) 
140 PSET ( H - 1 ,73) 


...and RUN. 

Now let’s try and move him to the right. Add: 


45 PRESET < H + K- 1 ,80 + K ) 
55 PRESET ( H-K - 1 ,80 + K ) 
85 PRESET ( H + K - 1 ,74 + K ) 
95 PRESET ( H- 1 ,74 + K ) 

105 PRESET ( H-K- 1 ,74 + K ) 
125 PRESET < H-l ,72 ) 

135 PRESET ( H ,73) 

145 PRESET(H-2 ,73) 

150 H = H + 1 
160 GOTO 30 


...and RUN. 
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Sure moves funny, doesn’t he? Well, I’m no animator either, but you’re beginning 
to get the idea. 


IP I WALk' 
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Line Drawing With Line 

We have been drawing lines (horizontal, vertical and diagonal) by using PSET. 
There is an easier and shorter method for drawing straight lines. Type in this 
NEW program: 

10 CLS 

20 LINE ( 120 >40) - ( 70 ,90) 

30 LINE - ( 170 ,90) 

40 LINE - ( 120 »40) 

50 LIST 

...and RUN. 

WOW! Now that’s fast. It only took 3 program Lines to draw 3 display lines. 
A similar program using PSET would require about five loops. By analyzing 
each Line we’ll discover that LINE is actually similar to PSET. LINE and PSET 
use the same Horizontal and Vertical address numbers to spot the starting point 
on the display. 

Nice. But what is it doing? 

Line 10 clears the display 

Line 20 draws a diagonal LINE by following the dots from coordinates 
120 (horizontal) and 40 (vertical) to ( — ) 70 (horizontal) and 90 
(vertical). 



Line 30 draws the horizontal base line. The TO ( — ) and the destination 
coordinates are all that is included in this LINE statement. When the 
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starting coordinates are omitted, the Tandy 200 uses the coordinates 
last used to PSET or LINE. In this example, the last pixel turned on 
in Line 20 was at (70,90). So, Line 30 really says, “From the last 
coordinate (70,90), draw a LINE to (-) horizontal position 170 on 
vertical line 90.” 

Line 40 begins at the last pixel turned in by Line 30 and draws the 
third LINE up to the top of the triangle. 

Line 50 then LISTs the program. 


Zeroing Out the Line 

Replace Line 50 in the resident program with: 

50 LINE (35 *90) - ( Id5 ,90) *0 

...RUN 

By selecting a portion of the horizontal LINE and adding ♦ 0 to the end of the 
LINE statement, we made LINE act like PRESET. Do some experimenting on 
your own with LINEs before going on. 


EXERCISE 30-2: Add two Lines to the LINE program that will draw 
this completed diagram-. 
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Drawing Boxes 

We can also draw boxes without topses. Try this NEW program: 


10 

CLS 


20 

LINE 

(5 ♦ 8 ) - ( 234 ♦118) ♦ 1 ♦ B 

99 

GOTO 

99 


...and RUN. 

Line 20 did all that? The first coordinate (5,8) established the top left hand comer 
of the box and (234,118) set the bottom right hand comer. Then B told LINE 
to connect these two points in the shape of a Box. 

How about a box within a box? Add: 


30 LINE (50 ♦ 18) - ( 130 »108) >1 ♦ B 

Now would t look neat to fill in the inside box. Suppose that requires several 
FOR-NEXT loops and a PSET. Wrong, just the letter F added to our LINE 
statement Fills in the Box. Change Line 30 to: 

30 LINE (50 ,18) - ( 190 ,108) #1 ♦ BF 

...and RUN. 

Just like that, the Box is Filled. 

Do you suppose the are any more tricks left in the LINE statement? Well, there 
just happens to be one. We can remove an entire box the same way we removed 
a LINE. Let’s add the finishing touches to this program by adding these Lines: 

40 LINE ( 55 >23) - ( 185 ,103) >0 ♦ B 
50 PRINT0257 ♦"BURMA" 

30 PRINT0337 ♦"SHAVE" 
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This has been one long and active Chapter... and to think, all this with only the 
PSET, PRESET, and LINE statements . By simply exchanging PRESET for PSET 
or a 0 for a 1, in many cases we could have drawn the same pictures, with light 
on a dark background instead of dark on light. You might want to give it a try . 

Because the ideas come so fast in the area of graphics, we have deliberately 
chosen to show a number of straightforward examples rather than get bogged 
down in elaborate programs. There is no substitute for lots of experimenting with 
graphics, and you now know the basics. Put in your time, study the examples, 
and soon you can apply for membership in the artists’ guild. 

Learned in Chapter 30 
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Display Formattins 
with PRINK® 




emember the bouncing dot? Wouldn’t it be nifty if we could get the display 
to say “PING” each time the dot bounced off the barrier? Well, I think it would be 
nifty, so we’re going to do it. But first... 

We learned all about PSET and PRESET earlier. Now we’ll learn about PRINT® 
(pronounced print at) - a special type of PRINT statement especially useful in 
graphics. 


I Thought You Printed On, Not Printed At 

Learn something new every day. The PRINT@ statement allows us to begin 
printing AT a special numbered location. For example, type: 


NEW 

1(2 CLS 

50 PRINT0170 t "HELLO THERE t »170«" 


...and RUN. 
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This is location #170? Look at the Video Display Worksheet in Chapter 29. 

The PRINT® numbers start at 0 in the upper-left hand comer and go through 
39 - in the first line. They then pick up on the second line with number 40 and 
continue through number 79. The third line starts with number 80, etc. 

The width of PRINT® divisions are really the same as those for TAB except 
PRINT@ does not start over again with zero on the second line. It keeps going 
right on through PRINT position number 639. 

This perhaps strange sort of numbering is not so strange when you consider the 
problems we had very early in the graphics game with the fool carriage return 
scrolling our light right off the display. 


Remember what scrolling is? An upward line roll. 


The PRINT@ statement does not trigger a scroll after it has done its printing, 
except in the last line, between print positions number 600 and number 639. 

Further, PRINT® can directly address any of the 640 printing locations (not 
pixel locations - they are very different). Trailing semicolons are needed only 
after statements printed on that last or bottom line of the video “page.” 

We will soon see how valuable all this is. 

It’s That Time Already? 

Let’s create a 24-hour clock. (Why not... sounds like more fun than digging 
through all this obscure print statement logic.) Type: 

NEW 

10 CLS 

20 PR I NT0295 t " H M S" 

30 FOR H = 0 TO 23 

40 FOR M = 0 TO 59 

50 FOR S = 0 TO 59 

G0 PR I NT0334 »H 5 " .* 11 5 M 5 » a " 5 S 
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70 FOR N = i TO 300 : NEXT N 

80 NEXT S 

90 NEXT M 

100 NEXT H 

110 GOTO 10 

...and RUN. 

Nothing to it. Ahem! 


“Hello? National Bureau of Standards?” 

Of course, the accuracy of this timer depends on how closely we calibrate it. We 
know that a Tandy 200 will execute somewhere around 300 simple FOR-NEXT 
loops per second when written as shown in Line 70 -- a multiple statement Line. 
If you really get carried away with this program, it can be calibrated against a 
precision timepiece increasing or decreasing the “300” figure as needed. Over 
the short run, it is quite a good timer. Note that we are not triggering this with 
the power line frequency or a crystal oscillator but relying solely on the amount 
of time required to execute FOR-NEXT loops. (It’s not nearly as accurate as the 
Real Time Clock built into the Tandy 200.) 


Oh, Yes... The PRINT @ 

Anyway — let’s not lose sight of the forest for the trees (or is it trees for the 
forest). The purpose of this little program is to demonstrate the PRINT® state- 
ment. We used it twice. By carefully squinting at the layout chart you can find 
address 295, with 334 neatly below it. With blazing speed, the HMS (no, no, 
not Her Majesty’s Service — it stands for Hours, Minutes and Seconds) are printed 
— and the H, M and S are updated each second. 


NOTE: No carriage-return-suppressing semicolons follow the PRINT@ statements 
since they are not on the bottom line. 


For the real clock nut, see Section C for an operational clock program. It only 
needs your closer calibration to be an acceptable sundial. Most expensive clock 
in the house! 
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POS and CSRLIN 

An additional and sometimes useful statement allows the Computer to report back 
the horizontal POSition of the cursor. This simple NEW program exercises the 


POS function. 


10 

CLS s 

PRINT 

20 

INPUT 

"A NO ♦ BETWEEN -10 AND 23" ?A 

30 

PRINT 

TAB (10 + A ) 

d0 

PRINT 

POS (0)5 

50 

PRINT 

"IS THE PRINT POSITION" 

...and RUN. 



Line 40, containing POS, is the key. 

The 0 inside the parentheses is just a “dummy” . Most any other number 
or variable would work as well - but something has to be placed 
there. POS reports back any cursor POSition on the screen up thru 
39. Numbers above 39 start over again with 0. 

To help locate the cursor, we can add these Lines to the resident 
program: 


45 L = CSRLIN 

55 PRINT "AND IS LOCATED IN LINE" i L 

CSRLIN tells us the CuRSor LINe (Row) number from 0-15 that the cursor was 
on at the time CSRLIN is encountered. 

Remember, CSRLIN returns the CuRSor LINe (Row), 0-15, and POS(0) returns 
the column, 0-39. 


That’s How the Ball Bounces 

Meanwhile, back with the bouncing ball. Let’s CLOAD the program from 
Chapter 30. It reads: 


10 CLS 
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20 

FOR 

H 

“ 

90 

TO 15 

0 

30 

PSET ( 

H * 

35) 



40 

PSET ( 

H > 

90 ) 



50 

NEXT 

H 





G0 

U s 

T 

44 





70 

D = 

1 





8 0 

PRESET 

( 1 

20 * 

y - d ) 


90 

PSET 

( 1 

20 

»y ) 



100 

FOR 

\/ 

/\ 

= 

i 

TO 20 

B 

B 

110 

u = 

y 

+ 

D 



120 

IF 

y 

= 

91 

THEN 

140 

130 

IF 

y 


34 

THEN 

80 

140 

u = 

u 

- 

ry 

iL 

* D 


150 

D = 

- 

D 




1 80 

GOTO 

90 





Since we did not explain in detail how that fairly simple program worked, take 
time now to see if you can follow it through. Concentrate your thinking on the 
PSET and PRESET Lines and the logic that gives them their numerical values. 
When you have it figured it out, tackle this exercise: 

EXERCISE 31-1: Using PRINT® statement(s), cause the word "PING" 
to appear near the ball each time it bounces off either the top or 
bottom boundary. A sample answer is in Appendix G. 


Isn’t it amazing how close we are building towards some of the video games that 
are all the rage — and yet it’s really so simple and logical. 

Learned in Chapter 31 


Statements Functions 


PRINT® 


POS 

CSRLIN 
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I t is often helpful to graph mathematical functions to better understand what’s 
happening. The Tandy 200 graphics are adequate for a non-precision exami- 
nation of many mathematical functions, and the following short demo programs 
illustrate that capability. 

Just imagine there is an X-Y coordinate system drawn on the display (or draw 
your own, either with the Computer or a china marker). The numbers in these 
demo programs are not magic, they just allow the graphs to be drawn large, but 
not so large they run off the display. 

These programs are included to show how PRINT® can be used in a supporting 
role to the Tandy 200 graphics. Experiment to get what you want for your own 
particular application. 


A Single Sine Wave 


10 CLS : PRINT@400 > " S I N E " 


20 FOR 


= 0 TO 240 
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30 Y = S I N ( X / 3 8 ) 

40 PSET (X/2 » 3 8 - Y * 3 8 ) 

50 PRINTO410 t"X =" 5 I NT (X/2) 5 
G0 P R I N T @ 4 2 0 > " Y = " 5 I NT ( 38 - Y*38 ) 5 
70 NEXT X 
80 GOTO 80 

Graph of 3 Cosine Waves 

10 CLS : PRINTO400 » "COSINE" 

20 FOR X = 0 TO 720 
30 Y = COS ( X/38 ) 

40 PSET (X/G 1 3 8 - Y * 3 8 ) 

50 PRINT6410 »"X = " 5 INT(X/B)i 
G0 PRINT0420 #"Y ="5 INT ( 38-Y*3B ) 5 
70 NEXT X 
80 GOTO 80 

Graph of the Tangent 

10 CLS : PRINTS400 * "TANGENT" 

20 FOR X = 0 TO 120 
30 Y = TAN ( X/80 ) 

40 PSET (X *75- Y *5) 

50 PRINT@410»"X ="i I NT ( X ) i 
G0 PR I NT 0420 > " Y ="? INT(75-Y*5)5 
70 NEXT X 
80 GOTO 80 
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There is obviously quite an education to be had by careful study of the graphs. 
Look for such things as relative thickness of the line at different points, the rate 
at which blocks are lit relative to the other variable, etc. Sure beats the “early 
days” when we had to try and imagine these things on a blackboard. 

Merely For Display Purposes 

A good way to get a feel for PRINT® (or any feature) is to look at a fairly 
simple program which illustrates its use. This NEW program lays out a graph 
format on the display. What you do with it beyond that point depends on your 
own needs and interests, but it is worth entering, studying and becoming comfort- 
able with. Type: 

10 CLS 

20 PR I NT@8 » " G RAPH HEADING" 

30 PR I NTS48 

40 REM * HORIZONTAL MARKERS * 

50 FOR X = 1 TO 35 

60 PRINTS5G4+X t " ♦ " j 
70 NEXT X 

80 REM * HORIZONTAL NUMBERS * 

90 FOR X = 0 TO 30 STEP 5 

100 PR I NTS604 + X »X 5 
110 NEXT X 

120 REM * VERTICAL MARKERS * 

130 FOR Y = 1 TO 14 

140 PRINTS Y *40 + 4 » " - " 

150 NEXT Y 

160 REM * VERTICAL NUMBERS * 

170 FOR Y = 1 TO 14 

180 PRINTS Y *40 >14- Y 

190 NEXT Y 


999 GOTO 999 
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One noteworthy procedure in this program is the use of trailing semicolons after 
PRINT® statements. The reason, this time, is that the printing is taking place 
in the last line on the display so the carriage return would activate a line feed scroll. 
We, therefore, have to suppress the carriage return with the semicolon. 

Learned in Chapter 32 


Miscellaneous 


Graphing with PRINT® 
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INKEY$ 


T 

■ he INKEY$ (pronounced Inkey-string) function is a powerful one which enables 
us to INPUT information from the keyboard without having to use the ENTER 
key. 

Enter this NEW program: 


10 CLS 

20 IF I N K E Y $ = " T " THEN 40 
30 GOTO 20 

40 PRINT "YOU HIT THE LETTER ' T ' " 
50 GOTO 20 

...and RUN. 


Press any key except T. The keyboard seems to be dead. Now hit the capital 
letter “T” key. 

Aha! The test in Line 20 then passes, execution moves to Line 40 and a message 
is printed. Then the process starts over. Hit T again. Hold it down. 

356 
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The way INKEY$ works is clever if somewhat subtle, so pay close attention. 

The Tandy 200 keyboard is constantly scanned by the Computer, checking to see 
if any key is pressed. Any time a key is pressed while the Computer encounters 
an INKEY$ function, the character that key represents is stored in the INKEY$ 
storage, or buffer area. This buffer can hold only one character at a time so when 
a new key is pressed, that character replaces whatever preceded it in the buffer, 
if anything. INKEY$ automatically assumes the String Value of whatever 
character is in its buffer. 

Since INKEY$ can only “photograph” one letter or number at a time, if we want 
to test for more than one character, we have to write the program to test for each 
one in sequence. In so doing, however, we must be careful or INKEY$ will trip 
us up. 

Add these Lines to the program: 

25 IF I NKEY$= " P " THEN G0 
G0 PRINT "YOU HIT THE LETTER ' P ' " 

70 GOTO 20 

...and RUN alternately pressing P and T. 

As you can see, we no longer get an “instant” response each time T or P are 
pressed. This distressing condition exists because the INKEY$ buffer is cleared 
and reset to a null string each time INKEY$ is hit. Aaawk! Just when it was 
starting to make sense. BREAK and LIST so we can take a good look at the 
program and see how this clearing of the buffer results in the “loss” of a keystroke . 


The Autopsy 

Suppose that the operator presses the T key just as Line 25 begins execution. 
Where does that T go? Right into the INKEYS buffer, of course. 

In Line 25, the buffer’s current value (T) is compared and tested for a match 
with the letter P. Since the two string values don’t match, control passes to Line 
30, then back to Line 20. In Line 20, an INKEYS looks again, this time for a 
“T,” but unless we just happened to hold the T key down, T is not to be found. 
What happened to the T? 

Let’s replay that last sequence and zoom in for a closeup on the INKEYS buffer. 
As the operator hits the T key, we see the T stored in the buffer. As the INKEYS 
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function in Line 25 is executed, the buffer suddenly goes blank. Ahhhhh! 
Thank heavens for instant replay. It’s now obvious that each time INKEY$ is 
called, its buffer is cleared, whether or not it meets the string test in the Line calling 
it. If we want to preserve the value of T, we’ll need to store it elsewhere, maybe 
in a temporary string variable. 

Change Lines 20 and 25 to get: 


10 

CLS 




20 

A$=INKEY$ 

: IF 

A$ = 

"T" THEN 40 

25 

CL 

M 

«■ 

<r 

Ll 

i—i 

THEN 

G0 


30 

GOTO 20 




40 

PRINT "YOU 

HIT 

THE 

LETTER ' T ' " 

50 

GOTO 20 




G0 

PRINT" YOU 

HIT 

THE 

LETTER 'P'" 

70 

GOTO 20 





...and RUN alternately pressing P and T as quickly as you can. 

Aha! Now we’re getting somewhere. 

By setting a “regular” string variable equal to INKEY$ and having T and P 
checked against the variable instead of against the INKEY$ buffer, we can store 
a value for as long as is needed and process it much more efficiently and 
predictably. 


Rapid Scanner 

If INKEY$ scans the buffer and does not find a pressed key (the usual case), it 
is said to read a “null string.” INKEY$ is a String Function, and null means 
nothing. A null string is represented by two separate quote marks with nothing 
between them, thus: 


II II 


The ASCII code for null is 0. 
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To see how fast INKEY$ scans the keyboard for input, try this NEW program: 

10 K $ = I N K E Y $ 

20 IF K $ = 11 "THEN PRINT"N0 KEYBOARD INPUT" 

30 PRINT >K $ : GOTO 10 

...and RUN. 

Type in some words and see them break the scan. 

Get the general idea of how to use INKEY$? So simple, yet the possibilities are 
enormous. Only a lot of experimenting will make you comfortable with it, but 
INKEY$ will keep you awake nights staring at the ceiling thinking of exciting 
ways to put it to work. 


Out of the Blue of the Western Sky... 

While chasing the solitude needed to write Computer books, your author piloted 
a heavily loaded light plane, packed with computers, ham radio and other goodies, 
into a medium sized city airport. Transferring this freight to a rental car turned 
out to be a big deal since security wouldn’t let a car on the apron to unload the 
plane. (You’re supposed to drop it by parachute?) 

After some cajoling (and a gratuity), it was agreed that my car could be driven 
up near the apron, and an “officially approved” car could haul the goodies from 
the plane to my car. It all seemed a bit officious, but elections were far away. . . 

Anyway, to get my car thru the security fence, it was necessary to drive to an 
electrically operated gate. A secret code was to be punched into a numeric keypad 
for some sort of computer to analyze, and it controlled the motorized gate. The 
secret code number was 1930 . 

Needless to say, as soon as the Computer was set up, I wrote a BASIC program 
to do everything but actually open the gate. It provides a good example of a 
real-life application of INKEY$ and is offered here for your amusement, amaze- 
ment and study. 

10 CLS: PRINT0370 »" TYPE THE COMBINATION" 

20 PRINT0410 , "FOLLOWED BY A PERIOD" 
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30 PRINT091 * " THE GATE IB CLOSED" 

40 K $ = I N K E Y $ : IF K$ = " " THEN 40 
50 READ D$ : IF D$ = " ♦ " THEN 80 
G0 IF D$ = K $ THEN 40 
70 RESTORE : GOTO 40 

80 CLS : PR I NTi 1 32 » " YOU MAY ENTER NOW" 

90 PR I NT@ 1 68 »" WAIT FOR THE GATE TO OPEN" 

100 FOR T = 1 TO 1500 : NEXT T 
110 RESTORE : GOTO 10 
1000 DATA 1 »9 *3 »0 » . 

The password (1930 followed by a period) is imbedded, a character at a time, in 
the DATA in Line 1000. The commas only separate the characters and should 
not be typed in to open the gate. 

Line 40 holds the magic. It checks the INKEY$ buffer looking for something 
besides a null string. If it finds a key pressed, execution drops to Line 50. 

Line 50 READs a piece of DATA. If it happens to be a period (which can only 
be READ from DATA after each of the other code characters have been READ), 
execution moves to Line 80 where the gate is OPENed, and then you are allowed 
to enter the premises. 

If, however, the test in Line 50 does not find a period, execution defaults to the 
next test in Line 60. 

Line 60 checks to see if the keyboard character matches up with the character 
READ from DATA. If so, the first hurdle has been passed, and execution returns 
back to Line 40 for INKEYS to await another keyboard character. If the keyboard 
and DATA characters don’t match, the test fails, and execution drops to Line 70. 

Line 70 RESTORES the DATA pointer back to its beginning and returns execution 
to Line 40 to start scanning all over again. The keyboard puncher sees none of 
this and has no idea if he is making progress towards cracking the code. 

Line 100 merely allows the gate a brief time to open and close (and you to read 
the display), then 
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Line 110 RESTORES the DATA and starts the program over again from the 
beginning. 


n?00 PaSSW ° rd can be cha nged to any combination of characters by changing Line 


If you wanted it to be “TANDY-200” for example: 
1000 DATA T»A»N»D»Y#-»2»0»0,. 
Or, ‘OPENSESAME’ 


1000 DATA 0#P,E»N»S»E»S»A»M#E». 

Don’t forget that last piece of DATA, the period. By changing Line 50, of course 
you could change that period to anything else you might want. 

Happy gate crashing! 

Learned in Chapter 33 

Functions Miscellaneous 


INKEY$ 


Keyboard buffer 
INKEY$ buffer 
null string 
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PRINT USING 


O; all the ways we have to PRINT, the most powerful (but most confusing) 
is one called PRINT USING. The name PRINT USING itself implies that we 
PRINT something USING something else. That implication is correct. 

As originally developed for use on large computers, PRINT USING consists of 
two parts — PRINT and USING. PRINT prints USING the format (called the 
“image”) found in another Line. The Tandy 200 PRINT USING is similar but 
does not always require a second Line for the “image”... as we will see. 


PRINT USING With Numbers 

Type in this NEW program: 


10 

CLS : 

PRINT 

20 

A = 1 

23 . 456783 

50 

U$ = 

"###*# *c “ 

60 

PRINT 

U5ING U$ ? A 

30 

PRINT 

; LIST 

.and RUN. 
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The answer is PRINTed as 


1 23 ♦ 46 


It was rounded up and PRINTed to an accuracy of 2 decimal places. 
Add: 

30 B = 1 ♦ S 
70 PRINT USING U$5B 

...and RUN. 

The display shows 


123 ♦ as 
1 « 60 


Notice that we have called upon Line 50, the image Line, twice — once in Line 
60 and again in Line 70. Also, note that the answers appeared with their decimal 
points lined up. Last, see that a 0 has been added to the 1.6 to make it read 
1.60. These latter two points are important when PRINTing financial reports. 

One more addition: 

40 C = 9876 * 54321 
80 PRINT USING U$ ?C 


...and RUN, produces: 


123*46 
1 * 60 

7, 9 8 7 6 * 54 


PRINT USING 365 


Oh-oh! Was ist los? 


Well, the % sign means we have overrun our image Line’s capacity to PRINT 
digits left of the decimal point, but it PRINTS them anyway. Better to lose our 
decimal point lineup than important numbers, but it does call our attention to a 
programming problem. 

Let’s add another # sign to make room for that extra digit left of the decimal 
point. (We are adding another element to the field in the image Line. Got that?) 

50 U$ = " ####♦##*' 


Line 50 now has 4 elements in “left field” and 2 in “right field.” The decimal point 
is the dividing point. 


...and RUN. 


123 . dG 
1 ♦ 60 
9876 * 54 

That’s better — but the overrun message would appear again if we tried to print 
a number with more than 4 digits on the left. 

So far, this PRINT USING business looks like it might have some potential, 
lining up decimal points like it does. We don’t have any other reasonable, 
straightforward way to accomplish that, and it’s essential for printing dollars and 
cents. Wonder how we can print a dollar sign? 

Let’s change the image Line to: 

50 U$ = " $####,## " (Count ‘em carefully.) 


...and RUN. 
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Nice, eh? The dollar signs all line up in a row: 

$ 123*46 
$ 1*60 
$3876 * 54 

But suppose we want the dollar signs to snug right up against each dollar 
amount? Make Line 50 read: 

50 U $ = "$$####,##" 

...and RUN. 

And shure enuf: 


$ 123*46 

$ 1*60 

$ 9876*54 

Not especially attractive in this format, but taken singly, as when writing checks, 
it’s almost essential. 

The lessons so far are: 

1. PRINT USING with # lines up the decimal points. 

2. It rounds off the cents (the numbers to the right of the decimal 
point) to the number of elements specified. It does not round off 
dollars (left of the decimal point) but sends up an error flag (%), 
prints all dollars and slips the printout to the right if the field 
isn’t large enough. 

3. If a single $ is added to left field, dollar signs are printed and 
lined up in a column like the decimal points. This single $ does 
not expand the field. 

4. If two $ are placed on the left, one $ will be printed on each line 
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immediately in front of the first dollar digit. One of these $’s can be 
used to replace one # in the field, thereby not expanding it. 

We’ve covered a lot with a very small program but have a long way to go. 


Printing Checks 

When using a printer for writing checks, it’s usually wise to take extra precautions 
against “alterations.” This is easily accomplished by changing Line 50 to read: 

50 U$ = (Count 'em.) 

...and RUN. 

The display now reads: 


**123 ♦ 4G 
**** 1 ♦ G0 
*987G ♦ 54 


That’s swell. It fills up the unused space alright, but there’s no dollar sign. Okay, 
replace the first # sign with a dollar sign, like so: 

50 U$ = "**$##,##" 


Aren’t you glad we have an Editor for all these changes? 


See it now: 


*$123 ♦ 4G 
***$ 1 ♦ 60 
$987G ♦ 54 


just like they do it uptown! Only 1 $ was needed when using leading *’s, compared 
to $$ without them. 
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If you want to impress others with the size numbers we usually deal in at our 
local lemonade stand, add lots more # signs to the image Line, thus: 

and make your checks read: 

**************$ 1 23 *46 
****************$1 .G0 
*********•**•**$9876 .54 

...very impressive. 


An illegal Function Call Error will occur if more than 24 characters are assigned to 
a PRINT USING variable. 


Since we’re obviously big time operators having franchised the lemonade stands, 
it’s getting hard to keep track of the big numbers. How about some commas to 
break them apart? (Knock out those extra *’s first. Too hard to count them.) 

50 U$ = "**$»##♦##“ (Look closely.) 

...and RUN. 


**$123.48 
****$1 ♦ 80 
$9 .878.54 

Only one of our numbers has more than 3 digits, but a comma separated its 9 
and 8 for easier readability. In the image field, the comma can be placed anywhere 
between the $ and the decimal point, and only one comma is required to automat- 
ically insert commas to the left of every 3rd digit left of the decimal point. 
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You really big time operators who deal in the millions will find this next feature 
handy. Change Lines 40 and 50 to: 

40 C = 1 23456789*01 
50 U$ = 11 

...and RUN. 

There it is. $123,456,789.01. If we don’t want to bother with the small change, 
we can use single precision variables. Make this change to Lines 40 and 80: 

40 C! = 123456789*01 
80 PRINT USING U$5C! 

...and RUN 

$123.46 

$1*60 

$123 >457 >000 * 00 

Sure enough, it rounds to $123,457,000.00. Notice that the image Line didn’t 
have to change. All we did was use a technique learned in an earlier Chapter. 

If the 16-place accuracy of double precision isn’t adequate to keep track of the 
Krugerrands in your mattress, you and Scrooge McDuck can probably afford to 
spring for a bigger computer. 


Profit or Loss? 

Was that last number this quarter’s PROFIT from the lemonade stand, or was it 
a LOSS? We can make the image Line print either one. Change Lines 40 and 
80 back to double precision, and add a + sign to read: 

50 U$ = "+$$###, 


...and RUN. 
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Very nice. Wonder what would happen if C was a negative number? 

40 C = -123456789*01 

...and RUN. 

So far, so good. Suppose we take the + out of the image Line. Wonder if it 
will print the minus sign anyway? Use the Editor , and remove it from Line 50. 

Then RUN. 


Oh, Pshaw! It goofed it up. Negative numbers require one more field element 
than positive numbers, and the extra $ doesn’t do the job. The + did count as 
an element, so let’s put the + sign back in, this time at the end of the image. 

50 U$ = 11 

...and RUN. 

Mmmmm. That’s nice. Now let’s change C back to a positive number and see 
what happens. 


40 C = 123456789*01 

...and RUN. 

Very nice. Looks better to have the signs at the end, not interfering with the 
dollar sign, don’t you think? 

Most printers don’t print deficits in red. How can we tag them so we don t allow 
the project manager to slip them by us. (We 11 just take all + numbers for 
granted.) Let’s try changing the + to a minus and see what happens. 

50 U$ = “$$### ,######«##-'' 

...and RUN. 

Seems normal. How about when it’s hit with a negative number. 
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40 C = - 1 2345G789 ♦ 0 1 
...and RUN. 

AHA! Sticks out on the printout like a sore thumb. Now about this little deficit 
here, S my the... 

Stringing It Out 

Let’s rework our resident program to show some other PRINT USING capabilities: 

10 CLS : PRINT 
20 A = 1 23 ♦ 456789 
30 B = 1 ♦ G 
40 C = 9876*54321 

50 U$ = " spaces # # # # f # # 5 spaces # # # # f # # " 

G0 PRINT USING U$ 5 A ? B ? C 
90 PRINT : LIST 

...and RUN. 

The PRINT USING statement will reuse its image Line until all the fields are 
PRINTed. 

Shorten Line 50 to: 

50 U$ = "####*##5 spaces 11 

...and RUN again, with the same effect. 

See how numbers can be displayed horizontally instead of vertically? Line 60 
determines where the fields are PRINTed. 

1 2 3 ♦ l\ S 8 spaces 1 * G 0 5 spaces 9 8 7 G « 54 
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EXERCISE 34-1: Write the various forms Line 50 must take to PRINT 
these formats: 

123*45 

1 *60 

9876*54 

$ 123*46 

$ 1*60 

$9876*54 

$123*46 

$1 *60 

$9876*54 

$123*46 

$1*60 

$9 1 876 » 54 

and finally: 



***$123 . 46 

*****$1 *60 

*$9 >876*54 


Learned in Chapter 34 


Statements 


PRINT USING 


Miscellaneous 


Image Line 

PRINT USING symbols: 

#.$*,+ - 
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PRINT USING - Round 2 


u 

VISING With Strings 

In the previous Chapter we learned almost everything needed to put PRINT 
USING to work with numbers. This Chapter covers use with Strings, Advanced 
Features and a few other “tricks” that some readers might find helpful. 

Type in this NEW program: 


10 

CLS : 

PRINT 


20 

A$ = 

"IT'S" 


30 

B$ = 

"HOWDY" 


40 

C$ = 

"DOODY" 


50 

D$ = 

"TIME" 


G0 

U$ = 

" \ \ " 

(Press 2J222 and H f° r \ • ) 

70 

PRINT 

USING U$ 

? A$ 

90 

PRINT 

: LIST 



...and RUN. 
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The only thing unique about this program are the back slashes in Line 60. The 
\ symbol is to strings as the # sign is to numbers. 

The \ \ reserved two spaces for strings. Only IT was printed. Unlike #, 
however, to reserve more spaces in the string field, we add spaces between the 
\ signs. Change Line 60 to: 

G0 U$ ="\ \" 

...and RUN. 

4 spaces are set aside, and IT'S is printed without clipping. 

Let’s make room for printing another string on the same line. 

G0 U$ = "\ 2 \\ 3 \" 

70 PRINT USING 

...and RUN. 


Oops! We ran: 

IT 'SHOWDY 
together. 

To space them apart, we have to put an actual space in the image field just as 
we did earlier with printing the numerics. 

G0 U$ = 11 \ 2 \ l \ 3 \ " 

...and RUN. 

That’s more like it. 

Now, it’s your turn. Complete Lines 60 and 70 to print IT'SHOWDi DQODi 
TIME all on one line. 
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Answer: 


G0 U $ = "\2\1\ 3 \1\ 3 \1\2\" 

70 PRINT USING U$ 5 A$ #C$ * D$ 

If you have trouble counting the spaces in PRINT USING, add an adjacent 
“measuring” Line like this, to help in both the LISTing and PRINTout. 

59 PRINT " 1234567890123456789012345" 

It’s time to quit doodling around and get down to business! Change our HOWDY 
DOODY to some typical report headings. 


10 

CLS : 

PRINT 

20 

A$ = 

"PART #» 

30 

= 

"DATE PURCHASED" 

40 

C$ = 

" DESC ♦ " 

50 

D$ = 

"COST" 

E0 

(You figure out this one yourself.) 

70 

PRINT 

USING U$ i A$ »B$ >C$ »D$ 

90 

PRINT 

: LIST 

Answer: 

G0 

U$ = 

" \ 4 \ 3 \ 12 


\ 2 \" 


More On Strings 

There are three more PRINT USING characters that have real value. Like so 
many exotic “upgrades” of BASIC, they do nothing that can’t be achieved using 
other BASIC words but do it easier. Enter this NEW program: 


10 CLS ; PRINT 
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20 

ii 

** 

X 

•ALEXANDER 

30 

Y$ = ' 

•GRAHAM" 

40 

Z$ = 1 

•BELL" 

50 

x> 

& 

ii 

' ! l ! l \ 2 \ " 

G0 

PRINT 

USING a$; 

90 

PRINT 

: LIST 

and RUN. 



Who should appear before our very eyes but: 
A G BELL 


Each ! reserves an element in the field for the first letter of the string assigned 
to it. Very handy when you want to PRINT the initials and last names of a list 
of people. 


Another Short Cut 

An area of PRINT USING worthy of careful examination is incorporation of the 
image Line into the PRINT USING Line. It requires some care and has value 
primarily when only a few variables are to be PRINTed or only PRINTed once. In 
most practical applications, the image Line is referenced many times during a 
RUN, frequently by different PRINT USING Lines. 

Make a few changes in the resident program so it looks like this: 


10 

CLS : 

PRINT 

20 

n 

tfl- 

X 

ALEXANDER" 

30 

ii 

GRAHAM" 

40 

Z$ = " 

BELL" 

60 

PRINT 

USING " ! l ! l \ 2 \ " 

90 

PRINT 

: LIST 


;x$ »Y$ »Z$ 


...and RUN. 
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We simply did away with A$ and incorporated its elements into a combined 
PRINT and image Line separated by a semicolon. It does save space, and for 
short and uncomplicated PRINT USING applications, has value. For the long 
and complicated ones, it’s better to keep the image and PRINT USING Lines 
separate. 


INPUTting the Image 

We move deeper into the woods as we seek to make BASIC’s PRINT formatting 
capabilities resemble the superior (and far more complicated) ones of the FOR- 
TRAN language from which it was derived. We can even INPUT the image Line 
since it is a string. An easy way to see this is by using our resident program, 
but first change: 

50 INPUT A$ 

S 0 PRINT USING A$>X$»Y$»Z$ 

...and RUN. 

We now have to respond by typing in the image Line. (Seems like they’re hard 
enough to create without INPUTting.) The safest one to use is old Line 50, so 
respond to the question mark with: 

! l ! 1 \ 2 \ 

and see 


A G BELL 

appear again. 

RUN again, this time responding with something like: 

? \ 7 \ 1 \ 4 \ 1 \ 2 \ 

and we should see something like 


ALEXANDER GRAHAM BELL 
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Try INPUTting some other formats and see how fast you get into trouble with 
illegal Function Call or TM Errors. The down-to-earth value of this particular 
capability is a little elusive. 


Scientific Forms of PRINT USING 

Would you believe a double-precision number, clipped and expressed via PRINT 
USING in double-precision Exponential notation? The technical types with mis- 
matched socks and rope for a belt will salivate at that one. We aren’t going to 
bore the business types with the gory details, except for a quick intro. 

Type in this NEW program: 


10 

CLS : 

PRINT 

20 

A $ = " 

################### 

30 

D = 12 

34587890987854321 

40 

D ! = 1 

234587890987854321 

50 

PRINT 

USING A$5D 

80 

PRINT 

USING A$?D! 

90 

PRINT 

: LIST 

and RUN. 



1 234567 830987700 00 E + 0 1 
12 345700000 0000 000E+ 01 

What you see is what you get, both in double and single precision. Using the 
Editor, move the block of 4 carets to the left, one position at a time, by deleting 
#’s and then adding #’s to the right of the carets. Have fun! 


Bring on the Money Changers 

Here is a straightforward user program which uses PRINT USING in a practical 
way. One would be hard pressed to get the same results in so short a program 
without USING it. 


WOULD YOU RELIEVE A DOUBLE - 
PRECISION WUMB02,CUPPga)^L 
EXPRK^ED IK1 DOUBLE - PRECISION 
EXPONENTIAL NOTATION , IN PRINT 
U4IN£?„. 


tv 
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If you’re not in the international currency biz, just type in the program, the first 
half-dozen or so DATA Lines, plus Line 1500 to get a feel for what PRINT 
USING can do. See how \ and # can be mixed with blank spaces on the same 
image Line 1 . 

Count spaces in Line 100 very carefully\ Add a “measuring Line 99 if necessary. 

1 CLS 

10 REM * INTERNATIONAL MONEY CHANGER * 

20 REM * RATES AS OF JANUARY 1985 * 

30 RESTORE : PRINT 

40 PRINT "HOW MANY U*S. DOLLARS" 

50 INPUT "DO YOU WISH TO EXCHANGE" 5 D 
G0 CLS 

70 PRINT "AT TODAY'S RATE YOU WILL GET" 

80 PRINT 

90 READ A$ tA s IF A$ = "END" THEN 30 
100 P$ = "\ (16 spaces) \ ########♦##" 

110 PRINT USING P$5A$?D/A 

120 C = C + 1 : IF C< 1 5 THEN 90 

130 FOR T= 1 TO 500 : NEXT T 

140 C = 0 : PRINT : GOTO 90 

1000 DATA ARGENTINE PESO * *004896 

1010 DATA AUSTRALIAN DOLLAR t *8170 

1020 DATA AUSTRIAN SCHILLING t *04505 

1030 DATA BELGIAN FRANC # *015G8 

1040 DATA BRAZILIAN CRUZEIRO t *0002899 

1050 DATA BRITISH POUND t 1.1157 

1 0G0 DATA CANADIAN DOLLAR » .7540 

1070 DATA CHINESE YUAN t *3568 



382 Chapter 35 


1080 DATA COLOMBIAN PESO , *008672 

1080 DATA DANISH KRONER » .08833 
1100 DATA DUTCH GUILDER , *2787 
1110 DATA ECUADORIAN SUCRE, *01483 
1120 DATA FINNISH MARKKA, *1503 
1130 DATA FRENCH FRANC, *1031 
1140 DATA GREEK DRACHMA, .007746 
1150 DATA HONG KONG DOLLAR, *1283 
1160 DATA INDIAN RUPEE, *07824 
1170 DATA INDONISIAN RUPIAH, .0003242 
1180 DATA IRISH POUND, *3835 
1130 DATA ISRAELI SHEKEL, *001434 
1200 DATA ITALIAN LIRA, *0005123 
1210 DATA JAPANESE YEN# *003332 
1220 DATA LEBANESE POUND, *03473 
1230 DATA MALAYSIAN RINGGIT, *4023 
1240 DATA MEXICAN PESO, .004386 
1250 DATA NEW ZEALAND DOLLAR, *4700 
1260 DATA NORWEGIAN KRONE, *1031 
1270 DATA PAKISTANI RUPEE, .0G515 
1280 DATA PERUVIAN SOL, *0001588 
1230 DATA PHILIPPINE PESO, *05685 
1300 DATA PORTUGUESE ESCUDO, *005814 
1310 DATA SAUDI ARABIAN RIYAL, *2733 
1320 DATA SINGAPORE DOLLAR, *4535 
1330 DATA SOUTH AFRICAN RAND, *4305 
1340 DATA SPANISH PESETA, *005711 
1350 DATA SWEDISH KRONA, *1105 
1360 DATA SWISS FRANC, *3752 
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1370 DATA TAIWANESE DOLLAR * *02558 

1380 DATA THAI BAHT t *03856 
1300 DATA URAGUAYAN NEW PESO t .01335 
1400 DATA VENEZUELAN BOLIVAR * *1333 

1410 DATA WEST GERMAN MARK t .3149 
1500 DATA END > 0 * END » 0 


EXERCISE 35-1: Duplicate the followins statement. Use PRINT USING 
for all but the column headings. 



CREDITS 

TAX 

TOTAL 

ASTRAL COMPUTER 

18.30 

.70 

19.00 

BIOFEEDBACK UNIT 

1.80 

.00 

1.80 

PERSONAL MODULE 

7.20 

.30 

7.50 



DUE: 

28.30 


As you’ve seen, PRINT USING is the most complex of our PRINT statements 
but by far the most powerful. If you’re a serious programmer, you should master 
PRINT USING completely. Take these many simple learning examples, and 
expand them into large, useful report routines. 

Learned in Chapter 35 


Miscellaneous 

PRINT USING with strings 
PRINT USING Symbols: 

\ ! * 

Double precision PRINT USING 
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Using a Printer 


R J 

■ ^ eady to learn something that’s very simple? 

LPRINT and LLIST 

These BASIC Commands/Statements are almost too simple. 

We have learned a lot of ways to PRINT, but they have all been on the display 
screen. Now we 11 learn how to PRINT-out on a Computer Printer. If you don’t 
have a printer yet, at least skim this Chapter before proceeding. 

Hook-up and turn on the printer and type this new one-Line program: 

10 LPRINT "THE PRINTER WORKS!!!" 


Notice that the first word is LPRINT - not PRINT. RUN the program. 


Did it print? If the printer did nothing, press filial BREAK to regain control 
of the Computer. Check the connections again. Make sure the printer is ON and 
ON LINE. Try RUNning the one-Line program again. 
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NOTE: There is much widespread misuse of the language when it comes to 
naming printers. Here are some definitions: 

Printer = a device which converts Computer talk to “hard copy.” 

Dot Matrix Printer = A printer such as the classic Radio Shack DMP 
printer which create characters by printing clusters of dots which 
resemble letters and numbers. 

Character Printer = A printer which, like most typewriters, prints 
complete characters on the paper. 

Line Printer = A very large “hi-speed” printer which literally “sets” 
and then prints an entire line of type at one time. 

There is much mislabeling of printers. Very few of them are “Line Printers,” 
though many are sold under that title. True Line Printers are very expensive and 
can print over 1000 LINES of type per minute. 

It is from the Line Printer concept that the “L” in LPRINT was derived. 


LLISTing the Program 

LLIST is typed at the command level when we want to LIST a program to the 
printer. 

Both LLIST and LPRINT can be used either as statements or commands. To 
PRINT both on the display and on paper, use duplicate program Lines with PRINT 
in the one for the display and LPRINT for the printer. 


Enter any program of your choice, and convert it to LPRINT the results on your 
printer. Make a “hard copy” LLISTing of it. 


If we accidentally precede either PRINT or LIST with the letter L and don t have 
a PRINTer connected, there may be trouble. It’s especially easy to have a simple 
LIST turn into LLIST. If there is no printer hooked up or it’s turned OFF, the 
Computer seems to go dead. This is termed “Hung up. Any time the system 
“hangs,” use Millgi BREAK to regain control. The Computer will respond 
with ?I0 Error (Input/Output Error). The same problem will arise if the 
printer is hooked up but is OFF LINE. 
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LPRINT TAB 

The TAB function can handle numbers up through 255. This has little value in 
displays PRINTed on the Computer, but on big printers it is common to print 
lines up to 132 characters long. 


Formatting 

Now, let’s see how to LPRINT with a nice format. Erase the one-Line program 
and type: 

10 FOR X = 1 TO B 
20 LPRINT X» 

30 NEXT X 

RUN it. 

See how the printer will format the printing with proportional spacing. The 
comma with LPRINT works the same as it does with PRINT except there may 
be a different number of columns on your printer. (The number of columns 
depends on which printer we have.) The Radio Shack Series printers are highly 
recommended. 

Try using a semi-colon in Line 20 rather than a comma. Type: 

20 LPRINT X? 


and RUN. The semi-colon works the same on the printer as it does on the dis- 
play. Let s see how TAB works. Type NEW and then type in this program: 

If the paper size is smaller than 8 1/2 by 11 inches, you’ll need to use different TAB 
settings. 


10 

LPRINT 

T AB ( 25 ) 

"TELE 

20 

LPRINT 



30 

LPRINT 

T AB ( 15) 

"NAME" 

40 

LPRINT 



50 

INPUT " 

NAME 

: " ? A$ 
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G0 

INPUT 

"NUMBER : " 5 B$ 

70 

PRINT 

"THANK YOU" 

80 

LPRINT 

T AB ( 1 5 ) A$ 5 T AB ( 45 ) B$ 

90 

INPUT 

"ANOTHER ONE (Y/N)" 50$ 

100 

IF Q$ 

= " Y " THEN 50 


...RUN it. 


LPRINT USING 

In the last Chapter we saw how PRINT USING can be used to format what is 
PRINTed on the display. Those same features can be applied to the printer by 
using LPRINT USING. To demonstate this, let’s incorporate LPRINT USING 
in one of the simple programs from the last Chapter. 


10 X$ = "ALEXANDER" 

20 Y$ = "GRAHAM" 

30 Z$ = "BELL" 

G0 LPRINT USING " ! * ! t \ a \ " 5 X$ 5 Y$ 5Z$ 

...and RUN. 


More Soft Keys 

We discovered earlier with the TEXT program that the entire contents of the 
display can be dumped to a printer by pressing the PRINT key. This key also 
serves to LLIST our BASIC programs. Press and PRINT, and notice 

that 1 1 i s t appears on the display as our resident program is LLISTed to the 
printer. 


To avoid pressing 2 keys to LLIST a program, a Soft Key can be programmed 
to do it in one step. Define Key 7 by typing: 


KEY 7 * " LLIST "+CHR$ (13) 


We learned earlier how to define Soft Keys; this time we added a new twist. 
Looking at the ASCII table in Appendix A, we see that ASCII 13 is a control 
code for RETURN. By adding this to LLIST, we are telling the Computer to 
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RETURN (same as 
another key stroke. 


ENTER 


on our keyboard) after entering LLIST. 


Saves us yet 


LCOPY 

Another way to “dump” whatever is on the display to the printer is with LCOPY. 
Type: 


KEY LIST 
LCOPY 


ENTER 


ENTER 


We now have a PRINTout of all the defined function keys. Unfortunately, the 
printer will not recognize the special graphics characters. Printers have not been 
developed with a matching sets of graphics characters. 


LCOPY and the PRINT key are handy tools for making quick hard-copy backups 
of charts and graphs we may be displaying. 


Advanced LPRINT Capabilities 

Six different ASCII codes are set aside for use with printers. Since different 
printers respond differently, we can only talk here in general terms, and learn 
how to test our own printer to see how it responds. The 6 codes are: 

7 buzzer 

8 backspace 

9 horizontal tab 

10 line feed and carriage return 

12 roll paper to top of next sheet 

13 line feed and carriage return 

To see what this all means, enter this NEW program: 

10 CLS : PRINT 

20 INPUT "ENTER A CODE NUMBER " 5 N 
30 LPRINT N 5 " IS " 5 CHR$ ( N ) 5 " TO A PRINTER" 

40 GOTO 20 


...and RUN. 
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Try each of the codes to see what happens. Some codes may do nothing. Your 
printer s manual may have additional (or replacement) codes. 

There are no universal rules. Keep your test program simple, and be aware that 

LPRINT with CHR$ is not always predictable when mixed on the same program 
Line. 

The top of next sheet or “top of form” feature is necessary when using the 
printer with preprinted forms or when printing must start at the top of the page, 
such as with checks, statements, etc. Users with “continuous roll” printers have 
little need for “top of form.” 

When your Computer is turned on, if it’s going to do any PRINTing, it automat- 
ically assumes it will be PRINTing 6 lines per inch on sheets of paper 11 inches 
long (66 lines per page). 


With a little experimenting, we will have our printer doing what we paid to have 


it do. 



Learned in Chapter 36 


Statements 

Commands 

Miscellaneous 

LPRINT 
LPRINT USING 

LLIST 

LCOPY 

Trailing semicolon 
Print codes 
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Arrays 


W 

▼ ▼ e know we can use combinations of the 26 letters of the alphabet and the 
digits 0-9 to create names for variables. We’ve also discovered that very few of 
our programs have required anywhere near that many variables. There are times, 
however, when we need more variables — sometimes hundreds or even thousands 
of them. 

The way we control and keep track of that many variables is by holding them in 
an array. Array is just another word for “lineup,” “arrangement” or “series of 
things.” 

Let s organize a collection, arrangement or lineup (array) of autos, each of which 
has a different I.D. (address) number. 

We line up 10 cars, as in an array. They are all the same except for their engine 
size - and each has a different I.D. or license number. Let’s say the I.D. numbers 
range from 1 to 10, and we want to use the Computer to quickly spit out the 
engine size when we identify a car by its I.D. numbers. This might not seem 
like a real heavyweight problem — but, as before, we discover the full potential 
of these things by learning little steps at a time. 
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The I.D. numbers and engine sizes are as follows: 


CAR # 
1 
2 

3 

4 

5 

6 

7 

8 

9 

10 


ENG SIZE 
300 
200 
500 
300 
200 
300 
400 
400 
300 
500 


Now, we could give each of these car’s a different letter name, using the variables 
A through J, but what a waste — and what would we do when there are a thousand 
cars, not just ten? 


Setting Up Arrays 

Tandy 200 BASIC allows any valid variable name to be used as an array name. 
An array named “A” is not the same as the numeric variable “A,” and neither 
is it the same as string variable A$. (Nor is it the same as A!, A# or A% used 
to specify levels of precision.) We call it A-sub(something), and it can only hold 
numbers. We will name the cars A(l) through A(10), pronounced “A sub 1 
through A sub 10.” Get the idea? 

What’s that — you don’t believe there can be 3 separate variables all named 
“A”? OK, in command mode, type: 


A = 
A$ = 
A(l) 


ENTER! 


"(your name)" 
= 999 


U ^Benter 


then: 


PRINT A5 A$5 Ad) 


Does that make you a believer? 
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Let’s store the car engine sizes DATA statements. Type in: 

500 DATA 300 >200 t500 #300 #200 
510 DATA 300 >400 >400 >300 1 500 


Notice how carefully we kept the DATA elements in order from 1 to 10 so the 
first car’s engine size is found in the first DATA location and the 10th one’s in 
the 10th location? 

We now have to spin up an array inside the Computer’s memory to make these 
data elements immediately addressable. 


Big words meaning “so we can find a car fast!” 


Think how difficult it would be to try to address the 7th engine (or the 7 
thousandth!) for example, using only what we’ve learned so far. It can be done 
using only DATA, READ and RESTORE statements but, that would be very 
messy and slow. 

The easy way to create the array is to type in: 

30 FOR L = 1 TO 10 
40 READ A ( L ) 

50 NEXT L 


...and RUN. 

Nothing happen? Yes, it did. We simply didn’t display what happened. 

The FOR-NEXT loop READ 10 pieces of DATA and named the elements (or 
“cells”) in which they’re stored A(l) through A(10). To PRINT out the values 
in those array elements, type: 

105 FOR N = 1 TO 10 
1 10 PRINT A ( N ) , 
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120 NEXT N 

...and RUN. 

Aha! It works, but how? We READ the DATA elements into an array called 
A(L), but PRINTed them out of an array called A(N). Why the difference? 
Nothing significant. 

The array’s name is “A.” The location of each data element within that array is 
identified by the number we place inside the parentheses. That number can be 
brought inside the parentheses by using any numeric variable. You can even do 
some simple arithmetic inside the parentheses, if necessary. We arbitrarily used 
N to READ them in and L to PRINT them out. 

Remember, the array we are using is named “A.” Its elements are numbered and 
called A-sub(number). 


Some pure mathematicians might insist on calling A(N) - A “OF” N. We don’t need 
that added confusion! Best that you know, just in case. 


Let’s work some more on the program. 

Type: 

10 CLS 
90 PRINT 

100 PRINT "CAR # " r" ENGINE SIZE" 

110 PRINT N > A ( N ) 

...and RUN. 

Now that’s more like it. We have every I.D. number, every engine size and are 
not “using up” any of the “regular” alphabetic variables. Having demonstrated 
that point, erase Lines 105 and 120, and type: 


20 INPUT "WHICH CAR'S ENGINE SIZE"5W 
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1 10 PRINT W >A ( W ) 


...and RUN, answering with a car #. 

Get the idea? Can you see the beginning of a simple inventory system for a small 
business? 

Let’s go one small step (for mankind) further. Suppose we know the color of 
each of the 10 cars, and for simplicity, suppose the colors are coded 1, 2, 3 and 
4. We might then have a master chart that looks like this: 


CAR # 

ENG SIZE 

COLOR 

1 

300 

3 

2 

200 

1 

3 

500 

4 

4 

300 

3 

5 

200 

2 

6 

300 

4 

7 

400 

3 

8 

400 

2 

9 

300 

1 

10 

500 

3 


In the language of professional computer types, this is called a matrix. A matrix 
is just an array that has more than one dimension. (Our first array had the 
dimension of 1 by 10... 1 column by 10 rows.) This new array has a horizontal 
dimension of 2 and a vertical dimension of 10. 

If we wanted to be terribly inefficient about the matter, we could say that this is 
a 3 by 10 array, counting the I.D. number. If so, our first example would be 
called a 2 by 10 array — but who needs it? As long as we keep our I.D. numbers 
in a simple 1 to 10 FOR-NEXT loop, and the DATA in proper sequence, the 
arrays will be simple and easier to handle. 


Since we do not store the car number in the Computer, it is a “pointer” or an 
“index”. That’s why we don’t consider it as another “DIMension” to the matrix. 


How then can we label this 2 by 10 matrix? We have already used up our A 
array elements numbered 1 through 10. Oh, you want to know how many elements 
we have to work with? Very good! 
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Let’s just arbitrarily assign array locations 101 through 110 to hold the color 
code. We also have to put the color code information in the program using a 
DATA statement. From the table, type: 

520 DATA 3 t i ,4 >3 ,2 *3 t2 * 1 ,3 


60 FOR S = 101 TO 110 
70 READ A ( S ) 

80 NEXT S 


These last Lines load the color code DATA into the array. Array element numbers 
1 1 through 100 are not used, nor are those from 1 1 1 to the end of memory since 
they have not been formally assigned any values. 

...RUN, and select any car number. 

Awwk!! What is this ?BS Error business? (Bad Subscript or Subscript out 
of range.) Well, since arrays take up a lot of memory space, the Computer 
automatically allows us to use up to only 11 array elements without question. 
(They can be numbered from 0 to 10.) Then our credit runs out. We earlier used 
elements numbered from 1 to 10 without any problem. 

To use array elements numbered beyond 10 in the array called “A,” we have to 
“reDIMension” the available array space. Our highest number in Array “A” needs 
to be 110, so we’ll add a program DIMension statement: 


10 DIM A( 1 10) s CLS 


...and RUN again. 

That’s better, but we are not printing the color code. To display all the information, 
change these Lines: 


20 INPUT "WHICH CAR TO EXAMINE" 5W 

100 PRINT "CAR # " i "ENG SIZE 6 COLOR" 
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110 PRINT W t A ( W > 5 " " 5 A ( W+ 1 00 ) 

...then RUN. 

Check your answers against the earlier master matrix chart. Adjust the blank 
spaces in Lines 100 and 110 for a well-aligned display. 

Let your imagination go. Can you envision entire charts and “look-up” tables 
stored this way? Entire inventory lists? How about trying to find the car which 
has a certain size engine and a certain color? Hmmm. We will come back to 
the Logic needed for that last one. 


EXERCISE 37-1: 

Assume that your inventory of 10 cars includes 3 

different body styles, coded 10, 20 and 30, as follows: 

CAR # 

STYLE 

1 

20 

2 

20 

3 

10 

4 

20 

5 

30 

6 

20 

7 

30 

8 

10 

9 

20 

10 

20 

Modify the resident program to PRINT the body style information along 

with the rest when the car is identified by I.D. number. 


A Smith & Wesson Beats 4 Aces 

If we want to create a computerized card game (they make good examples to 
show so many things), how can we set it up so we draw the 52 or so (watch the 
dealer at all times) cards in a totally random way? Answer: Spin up the deck 
into a single-dimension array, pick array elements using a random number 
generator, as each card is “drawn” set its array element value equal to zero, then 
test each card drawn to be sure it isn’t zero. Now that is really simple! (Might 
want to read it once again, more slowly.) 

We will now, a step at a time, write a program which will draw, at random, all 
52 cards numbered from 1 through 52, and PRINT the card numbers on the 
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display as they are drawn. No card will be drawn more than once. When all 
cards have been drawn, it will PRINT “END OF DECK!” 

You do a step first, then check against my example. Then change yours to match 
mine — otherwise we might not end up at the same place at the same time. 

Step 1: Spin up all 52 cards into an array. 


20 DIM A ( 52 ) : CLS 

30 FOR 0=1 TO 52 : READ A(C) : NEXT 
500 DATA 1 ,2 >3 ,4 *5 >6 ,7 >8 *9 , 10 , 1 1 , 12 
510 DATA 14 *15 #16 *17 »-18 *19 *20 *21 *22 
520 DATA 24*25 *28 *27*28 *29*30 *31 *32 
530 DATA 34,35,30,37,38,39,40,41,42 
540 DATA 44 *45 >40 *47 >48 >49 >50 *51 *52 


C 

> 1 3 
*23 
,33 
,43 


At this point, all we can tell when RUNning is that it is taking some processing 
time since the Ok doesn’t come back right away. 


Shhhh! I know there’s a shorter way to program this special case, but it doesn’t teach 
what’s needed. 


Step 2: Draw 52 cards at random, PRINTing their values. 

40 FOR N = 1 TO 52 
50 V = I NT ( 52#RND ( 1 ) + 1 ) 

G0 PRINT A ( M ) 5 
70 NEXT N 


...and RUN. 

True, 52 card values are PRINTed on the display, but if you look carefully, the 
same number appears more than once. This means that some “cells” are not being 
READ and some READ more than once. 
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Step 3: When a card is drawn, set its array value equal to 0. Test each card 
drawn to be sure it is not 0. When 52 cards have been drawn and PRINTed 
PRINT “END OF DECK!” 


40 

P = 

52 


55 

IF 

A ( U ) 

= 0 THEN 50 

70 

A ( y 

i) = 

0 : P = P - 1 

80 

IF 

P<> 

0 THEN 50 

90 

PRI 

NT : 

PRINT "END OF DECK!" 


...and RUN. 

Line 70 sets the value in cell A(V) equal to 0 only if Line 55 finds it not equal 
to 0 already, letting the program pointer fall through. 

When a “fall through” occurs: 

1. The card’s value is PRINTed (Line 60) 

2. The number stored in that cell is set to 0 (Line 70) 

3. The second statement in Line 70 counts down the number of cards 
PRINTed. Line 40 initialized the number of PRINTS at 52. 

4. The number of PRINTs is tested (Line 80). When there are no 
more PRINTs to go, END OF DECK ! is PRINTed (Line 90). 

Pretty slick — and you don’t have to watch the dealer (just the programmer). 

But how do we really know that every card has been dealt? Write a quick addition 
to the program to “interrogate” each array element and PRINT its contents. 

100 FOR T = 1 TO 52 
110 PRINT A ( T ) i 
120 NEXT T 


RUN... and every cell comes up zero. 
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If you don’t really trust all this, change Line 40 to read: 
40 P = 50 


...RUN, and see what happens. 

AHA! It flushed out those 2 cards up the sleeve, didn’t it? 

Did you notice that each time the deck is dealt, the cards come out in the same 
order? It’s the old Random Generator problem. 

Let’s also add two new Lines to reseed the generator: 

5 R = VAL(RIGHT$(TIME$ »Z) ) 

10 FOR X = 1 TO R : Z = RND(l) : NEXT X 

Change P back to 52 in Line 40, eliminate test program Lines 100, 110, and 
120, and end up with a good card-drawing routine. You might want to clean it 
up to your satisfaction and save for future projects. 

Question: Why does the PRINTing of card numbers slow down to a near halt 
as those last few cards are being drawn. Is the dealer reluctant? 

Answer: The random number generator has to keep drawing numbers until it hits 
one that is the array address of an element which has not been set to 0. Near the 
end of the deck, almost all elements have been set to 0. The random number 
generator has to keep drawing numbers as fast as it can to find a “live” one. 

Look again at the card numbers PRINTed. There will not be any duplication. 
No stray aces. 


EXERCISE 37-2: Change the program so the original array can be 
loaded with the card numbers without having to READ them in from 
DATA Lines. 


New Dimensions 

We have already done some DIMensioning with single dimension numeric arrays. 
String arrays must also be DIMensioned. 
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Suppose we have a program like this: (Type it in) 


I 


10 FOR N = 1 TO 1G 
20 READ A$(N) 

30 PRINT A$ ( N ) * 

40 NEXT N 

100 DATA ALPHA #BRAV0 iCHARLIE »DELTA #ECH0 
110 DATA FOXTROT »GOLF tHOTEL »INDIA 
120 DATA JULIETT »KILO »LIMA >MIKE 
130 DATA NOVEMBER >OSCAR tPAPA 

...and RUN. 

Oops. There’s that same problem. ?BS Error means “not enough space set aside 
for an array.” Recall that only 11 elements per array (from 0-10) are set aside 
on power-up. We are trying to read in 1 6 of them, starting with 1 . The solution: 

5 DIM A$ ( 16 ) 

...and RUN. 

DIMensioning a string array is just like dimensioning a numeric one - simply 
call it by its name. In this case, its name is A$. You “high speed” types will 
want to know that to do “dynamic redimensioning” (that’s doing it while a program 
is running), the program must first encounter a CLEAR. Oh. 

Array Names 

A (N) 

BC (N) 

D3(N) 

E 4$ ( N ) 

X Y $ ( N ) 

are examples of legal array names. The last 2 are for “string arrays.” 



r 


MIND VOURI 
TON6UE / 


i ... 
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Learned in Chapter 37 


Statements 


Miscellaneous 


DIM 


Arrays 
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Search and Sort 


O: of the Computer’s most powerful features is its ability to search through 
a pile of DATA and sort the findings into some order. Alphabetical, reverse 
alphabetic, numerical from smallest to largest, or the reverse, are all common 
sorts. This feature is so important we are going to spend an entire Chapter learning 
how to use it. 

Typical applications of search and sort include: 

1. Arranging a list of customers’ or prospects’ names in alphabetical 
order. 

2. Sorting names in zip-code order for lower-cost mailing. 

3. Sorting the names of clients in telephone area code order. 

While not really all that complicated, the sorting process is sufficiently rigorous 
that we are going to take it very slowly and examine each step. Once we get the 
hang of it, the Computer can blaze away without our considering the staggering 
number of steps it’s going through. 


405 
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A Problem of Sorts 

Let’s start with a problem. We have the names of 10 customers. (If that doesn t 
grab you, make it 10 million — the process is identical). We wish to arrange 
them in alphabetical order. 

Start by storing their names in DATA Lines. Type in: 

NEW 

1000 DATA BRAVO >XRAY * ALPHA tZULU tFOXTROT 
1010 DATA TANGO >H0TEL , SIERRA ♦MIKE fDELTA 


Since we are sorting by name rather than by number, we have to use string 
variables, string arrays, etc. They work equally well with numbers such as zip 
codes, but numeric variables and arrays work only with numbers. 

The backbone of a sort routine is the array. Each name has to be READ from 
DATA into an array. So add: 


10 

REM 

* ALPHA 

STRING 

SORT FROM DATA * 

20 

CLS 





30 

FOR 

D=1 TO 

1 0 : READ 

A$ ( D ) : N = N+ 1 : N 

EXT 


Line 10 is, of course, just the title. 

Line 20 clears the display, then 

Line 30 “loads the array” by READing the 10 names into storage slots 
A$(l) to A$(10). N is simply a “counter” which will follow through 
the rest of the program. In this simple program we could have made 
N = 10, since we know how many names we have. In the next sample 
program we won’t know how many names there are, so let’s leave N 
the way it’s usually used. 

Important to the sort routine are 2 nested FOR-NEXT loops. 

1. The first one, F, controls the First name. 

2. S, the Second one, controls the name to be compared against the 
first. 
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Names and words are compared as we learned in the Chapter on the ASCII set 
remember? 


Let’s establish our loops first, and fill in the guts later: 


40 FOR F = 
50 FOR S = 
100 NEXT S 
110 NEXT F 


1 TON-1 (F = First word to be compared) 

F + 1 TO N (S = Second word to be compared) 

(Makes 9 passes) 

(Makes 9 passes) 


It may seem puzzling that F and S only have to make 9 passes when there are 
10 names. Think of it this way. Whatever word isn’t smaller than the rest, just 
ends up last. No need to test again to prove that. 


The F loop READs array elements 1 through 9 (N - 1 = 9). The S loop READs 

array elements 2 through 10. This always provides different array elements to 
compare. 


Now we’ll jump to the end of the program and prepare it to PRINT out what will 
happen. Type: 


120 FOR D = 1 TO N : PRINT A$(D)» : NEXT D 

When the sorting is done, the contents of A$(l) to A$(10) will be the same as 
READ from DATA, but they will be in alphabetical order. We’ll PRINT the 
array contents on the display. 

Now for the routine itself. Type: 


G0 

IF A$(F) < 

70 

T $ = A$(F) 

80 

A$ <F> 

= A$ 

90 

A$ ( S ) 

= T $ 


= A$(S) THEN 100 

(Test for smaller ASCII#) 

(First word to storage) 

( S ) (Copy Second word to First place) 

(Copy Temp word to Second place) 


And there is the biggie ! If you can understand the last 4 Lines, the rest is duck soup. 
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Line 60 says, “If the First word is smaller than (or equal to) the Second 
word, leave well enough alone, and bail out of this routine by going 
to Line 100, which will end this pass and READ another word to 
compare against F. If not, drop to the next Line. 

Line 70 says, “Oh, they weren’t in the right order, eh? We’ll just copy 
the First word in a Temporary storage location called T$ and store it 
there for future use. I’m sure we’ll need it again.” 

Line 80 copies the name held in the Second cell into the First array 
cell. If the Second one had an earlier starting letter than the First one, 
we do want to do this, don’t we? 

Line 90 completes the switch by copying the name Temporarily held 
in T$ into the Second array cell. A$(l) and A$(2) contents have now 
been exchanged with the aid of the temporary holding pen, T$. 

Us simple country boys find this one easy: There are two brahma bulls in separate 
pens, A$(l) & A$(2), and we want to switch them around. Ain’t no way we’re going 
to put them in the same pen at the same time. (Not with me in there anyway. Already 
broken too many 2 by 4's between their horns and have some scars in the wrong end 
from escapes that were a hair too slow.) That’s why we built a temporary holding 
pen called T$. Got it? 


If we did everything right, the program should: 


RUN. 


and in a flash the names appear on the display in alphabetical order: 


ALPHA 
DELTA 
HOTEL 
SIERRA 
X RAY 


BRAVO 

FOXTROT 

MIKE 

TANGO 

ZULU 


RUN it to your heart’s delight. It’s one of the most powerful things a Computer 
can do, and it does it so well. The identical procedure is used to sort a very long 
list of names (or zip codes, or whatever), but we would, of course, have to 
reDIMension for a larger array. 



If 





V£AW...*aru‘ 
WWO£ £OlN * 
TO CLEAR) Up 
TwJl4> ME45, 
ANY WAV... 


P>A/?£? A/G/% 1 
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To get a really good look at what’s happening, it’s necessary to slow the beast 
way down, and insert a few extra PRINT Lines. They allow us to peer inside 
the program by watching the display. 

Add these temporaries: 


55 

PRINT 

f ;a$(F) ;tab ( is) ;s ; a$<s> 

57 

FOR Z 

= 1 TO 500 : NEXT Z 

05 

PRINT 

•• <<--<< SNITCHER00 

95 

PRINT 

f ; a$ ( f ) ;tab ( is ) ; s ; a$ ( s ) 

and RUN. 




Aw c’mon Horse — Whoa! 

If this isn’t slow enough, change Line 57 so there is time for you to completely 
think through each step. Use the PAUSE key to freeze execution for as much 
study as you need to completely understand the process. Pretend you’re the 
Computer and make the decision that Line 60 has to make. Take it from the top 
— very slowly! 


The Diagnosis 

1 BRAVO 2 KRAY 

Means “in cell #1 is the word BRAVO. In cell #2 is the word XRAY” just as 
they came from the DATA Line. Of those two words, BRAVO is the “smallest” 
(ASCII code number), so it stays in cell #1. On to the next pass of S: 

1 BRAVO 3 ALPHA 

Oops. BRAVO is in cell # 1 and ALPHA is in cell #3 , but ALPHA is smaller than 
BRAVO. We better switch them around. So: 


1 ALPHA 


SWITCHER00 
3 BRAVO 


Search and Sort 411 


Don’t worry too much about what is happening in the second column. S is 
scanning through the array and its contents are always changing, testing against 
what’s in the first. It’s what ends up in the first column that counts - and the 
list must be in increasing alphabetical order. 

As the program RUNs, watch the new words appear in S, the second loop and 
column, and compare them against what’s in F, the first column. Try to guess 
what the Computer’s going to do. Also keep an eye on the increasing numbers 
on the left. The final word assigned to a given number in the first column is 
what will appear in the final PRINTout. 

RUN the program as many times as it takes (and at as many sessions as it takes) 
to completely understand what’s happening. It’s awfully clever, very important, 
and absolutely fundamental. We can carry this technique over to many useful 
programs in the future, but only if we really understand it. 

When you feel it’s under control, add one more little item to the display. What 
T$ is holding while all this sorting is going on is interesting. Add and change 
these Lines so they read: 


55 

PRINT 

F 5 A$ ( F ) 

;tab( 15) ;s ; a$(S) ; 

5G 

PRINT 

T AB ( 27 ) 

; n T$= " ;t$ 

95 

PRINT 

F 5A$(F) 

iTAB( 15) 5 S i A$ ( 9 ) ; 

97 

PRINT 

TAB ( 27 ) 

; " t$= " ;t$ 

and RUN. 





“T$= ” starts off empty since there is nothing in the holding pen. As BRAVO 
is replaced by ALPHA in the switching process, however, T$ holds it. When 
BRAVO replaces XRAY for the #2 position, T$ holds XRAY, etc. 

On a clear head it’s very easy to follow what’s happening. If you’re tired, it’s hope- 
less. SAVE this program and review it as often as necessary for a deep under- 
standing of the process. 


Sorting from the Outside 

We don’t really have to keep all our names, numbers or other information in 
DATA Lines. They can be INPUT from the keyboard or from cassette tape. 
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The following program is quite similar to the resident one, and the logic is iden- 
tical. Change and add these Lines: 

5 REM * ALPHA SORT OF NAMES MIA INPUT * 

10 INPUT "NEXT N AME " 5 N$ 

20 IF N$ = "END" THEN 40 

30 N = N + 1 : A$(N) = N$ : GOTO 10 

Delete Lines 1000 and 1010. 

...and RUN. 

Enter 6 or 8 different names, and when finished, enter the word “END.” The 
sort process is identical to what we used before. 

Erase Line 57 to let the computer RUN at full speed in BASIC. For still higher 
speeds, erase all unnecessary PRINT Lines. 

Can you see the potential for all this? 

EXERCISE 38-1 : Change Line 60 of the SORT program to list the names 
in reverse alphabetical order. 

Learned in Chapter 38 


Miscellaneous 


Sorting 
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Multi-Dimension Arrays 


w 

for lots of numbers, or characters, or both. In addition, we learned that it is a 
straight-forward procedure to compare values of variables outside the matrix (or 
array) with those inside it. 

An array which only has one DIMension, that is, just one long line-up of parking 
places is sometimes called a vector. We can take that same one-dimensional 
array, cut it into perhaps four equal chunks and position those chunks side by 
side. We then call it a two-dimensional array — since the parking places are lined 
up in rows and columns (or streets and avenues) . Its data holding or processing 
abilities are not changed. Only the addresses of the parking places (or elements 
or memory cells) has changed. 

Type this NEW program: 

10 DIM M ( 24 ) 

20 FOR U = 1 TO 24 
30 PRINT UtM(U) 

40 NEXT U 


413 
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Remember, any array with more than 1 1 elements (counting 0) must be DIMensioned . 

...and RUN. 

The RUN simply shows us the addresses (numbers) of 24 storage positions and 
their contents. Since they are all lined up in a single row, it is a vector array. 

Why are the cell contents always 0? Because every cell value is initialized at 0 
upon entering BASIC, or whenever we RUN, just like all the other numeric and 
string variables. Line 30 shows how easy it is to find the address and read the 
contents of each array cell. 


Side by Side 

Let’s cut our 24 cell array into 4 equal strips and line them up side by side. 
That would make 6 rows each containing 4 cells. . .right? Or 4 columns containing 
6 cells. “Multi-dimensional arrays” always have rows and columns. 

Let’s start over with this NEW program: 

10 DIM M ( 6 > 4 ) ' G ROWS BY 4 COLUMNS 

20 FOR R = 1 TO 6 

30 FOR C = 1 TO 4 

40 PRINT R ? " # " SC ?TAB (C*9> ; 

50 NEXT C : PRINT 

S0 NEXT R 

...and RUN. 

The addresses of all 24 cells are displayed at the same time, but not their contents. 
Nothing has changed from the earlier vector array containing the same 24 cells. We 
just rearranged the furniture and gave the pieces different addresses . They read: 

1 t 1 (means “first ROW, first COLUMN”) 

4 i 3 (means “4th ROW, 3rd COLUMN”) 

etc. 
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To view the contents of each of these cells, change Line 40: 

40 PRINT M ( R » C ) 5TAB<C*9) i 

...and RUN. 

See, the contents remain unchanged. They are still at their initialized value of 
0, since we have made no arrangement to store information in them. (The 
addresses are no longer displayed). Isn’t this easy (...so far)? 

Memory cells, like any other variables have to be “loaded” with values to be use- 
ful. This can be done by READing in DATA from DATA Lines, by INPUTting 
it from the keyboard, or from a previously recorded DATA on disk or cassette 
tape. We will load our Matrix from DATA Lines imbedded in the program. 

Add these Lines: 

100 DATA 1 »2 *3 #4 >5 ,G *7 tQ #9 »10 #1 1 »12 >13 
110 DATA 14tl5»lGti7tl8#19t20#21>22»23»24 


and this Line to READ the DATA into matrix cells: 

35 READ M(R »C) 


...and RUN. 

The DATA is nicely arranged in the matrix, and each matrix position has its 
original specific address. Again, that address is not displayed — just the contents. 
Let’s stay in the command mode for a minute and “poll,” or “interrogate,” several 
matrix positions and see what they are holding. Ask: 

PRINT M ( 2 » 3 ) 

Write down 7, the answer. We’ll RUN the program again later to check it. 

PRINT M(5 »2) 


Says that cell holds the number 18. 
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PRINT M ( 3 > 5 ) 

?BS Error? Why did we get that? Oh, there is no column 5. No wonder. 

RUN the program again and check the display, counting down the Rows and 
over the Columns to see if our answers match up. 

Mine did — how about yours? 

Row 2 Col. 3 = 7 

Row 5 Col. 2 = 18 

As an aside, type 
CLEAR 

then, at the command level, check any matrix memory spot again. 

PRINT M ( 2 >2 ) 


and get 0. CLEAR re-initialized all cells to zero, along with all other variables. 
We can, of course, reload them by: 

...RUN 

and verify the results by: 

PRINT M ( 2 > 2 ) 


Row 2 Col. 2 = 6 


Okay, Now What Do We Do With It? 

Good question. Everything we learned in the earlier Chapters on Arrays applies. 
We’ve only rearranged the deck chairs on this Titanic -- the end result is unaffected. 

At this point, what we’ve learned is best utilized calling up and loading relatively 
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unchanging DATA. It is placed in a matrix so it can be accessed and compared, 
processed or otherwise put to work. Typical applications are. 

1 . Technical Tables: Instead of looking up information in tables, store 
the tables in DATA Lines and let the Computer look them up and, 
do any needed calculations. Time saved may quickly pay for the 
Computer. 

2. Price Quotes: I saw this approach used by a lumber yard to furnish 
fast quotes on materials, and by a printing shop for fast quoting of 
all sorts of printed matter. The programs are written so simply that 
customers just belly up to the counter, answer the computer s 
questions, and get their quote right on the screen. 

The latest prices on paper products and printing costs are held in 
DATA Lines and “spun up” into the matrix at the beginning of the 
day. The customer responds to a “menu” on the screen, and answers 
some questions on quantity and quality. The quote was calculated, 
and PRINTed. 

When DATA is loaded in externally, either via the keyboard, disk or tape, we 
obviously don’t want to have to go through that loading process each time we 
want an answer. It’s important, therefore, to never let execution END. Always 
have it come back to a “Menu” of choices, or at least to a simple INPUT 
statement, an END is hit, the matrix crashes and the program must be reRUN 
to reload the DATA. 


String Matrices 

So far we have concentrated mainly on numeric arrays. They can also be used 
to hold letters or words, using the same rules learned earlier in the Chapters on 
strings, including CLEARing enough string space. 

String matrices need string names. Make these subtle changes in the resident 
program. 

10 DIM M$ ( G »4) 

35 READ M$(R »C) 

40 PRINT M$ ( R *C ) 5TAB ( C*9 ) 5 

...and RUN. 
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Absolutely no difference! We changed a string matrix but the data is all numeric. 
Strings handle numbers as well as letters, but not vice-versa. 

Let s change our DATA to words and try it again. Change: 


100 

DATA 

ALPHA ♦BRAVO ♦CHARLIE 

♦ DELTA ♦ ! 

ECHO 

1 10 

DATA 

FOXTROT ♦ GOLF ♦HOTEL ♦ 

INDIA 


120 

DATA 

JULIETT ♦ KILO ♦ LIMA ♦ MIKE 


130 

DATA 

NOVEMBER ♦OSCAR ♦ PAPA 

♦QUEBEC 


140 

DATA 

ROMEO ♦SIERRA ♦TANGO * 

UNIFORM 


150 

DATA 

VICTOR ♦WHISKEY ♦ X R A Y 




...and RUN. 

Really no difference between the string matrix and the numeric ones before, 
except it handles words. 

Stop for a moment and contemplate the string-comparing and string-handling 
techniques we learned a few Chapters ago. Your mind should be running flat 
out at this point, considering the possibilities. 


How About Mixing Strings and Numerics? 

Oh! Funny you should ask. That’s why we ran all numbers in a string matrix, 
then all words with that same program. They mix very well, as long as the mixer 
is a string matrix and not a numeric one. 

We have one final program. It is designed for demonstration only but could be 
expanded to INPUT the DATA from tape or disk and be quite usable. It 
demonstrates some important possibilities and programming techniques. 


The Objective 

The objective of this demo program is to allow a church treasurer to keep track 
of who gave what, when. Could use the same program with a service club, 
bowling league, or any organization that has a membership and dues. We want 
to be able to access every member’ s record by name and get a readout on his status . 
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Let’s start with the DATA. Type in this NEW program: 

1000 REM * DATA FILE * 

1010 DATA 07*0185# JONES# 15 

1020 DATA 07*0185# SMITH# 87 

1030 DATA 07*0185# BROHN # 24 

1040 DATA 07*0185# JOHNSON # 53 

1050 DATA 07*0185# ANDERSON# 42 

The first number in each DATA Line employs “data compression,” that is, 
“encoding” several pieces of information into one number. This number contains 
the month, date and year in one 6 digit number. (Using string techniques, we 
could easily strip them apart again if we wished, for special reports.) Single 
precision will hold the 6 digits accurately. 

The second thing we’ve done with this first number is protect the leading 0. 
Since months before October are identified by only one digit, the leading 0 would 
be lost on these months and the overall number changed to only 5 digits. There 
are other ways to get around that problem, but we will throw in a decimal point 
just to act as an unmovable reference. 

The second element in each DATA Line is the name. We could put in the full 
name, but if we used a comma, we’d, of course, have to enclose the name in quotes. 

The third element of each DATA Line holds the amount of money given on that 
date. 

Obviously, a full DATA set would contain many entries for each week and many 
weeks in a row. We don’t need to enter that much DATA to demonstrate the 
principles so will keep it short and to the point. 

This DATA must now be READ into a string matrix (displaying it as we go) . Add: 

10 CLS : PRINT 

20 FOR E=1 TO 5 : PRINT E5 'LOAD 5 ENTRIES 
30 FOR D=1 TO 3 'LOAD DATE# NAME# AMT 
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40 READ R$ ( E >D ) 

50 PRINT TAB (D*i 1 ) 5R$ ( E >D ) 5 
60 NEXT D 
70 PRINT 
80 NEXT E 

100 P R I N T 11 E N T R Y # 5 DATE 7 NAME 11 5 

110 PRINT TAB ( 32 ) 5 "AMT $ " 

...and RUN. 

Very good. The Matrix is loaded, and its accuracy confirmed on the display. We 
see the first 5 bookkeeping entries from July 1, 1985. 

Now that we know it loads OK, we can remove some of the software. Change 
this Line: 


20 FOR E = 1 TO 5 'LOAD 5 ENTRIES 

and Delete Lines 50 and 70. 

...and RUN. 

Good. We still get the heading, but the matrix contents display is gone. Now, 
how can we interrogate the Matrix to pull an individual member’s record? Guess 
we first have to ask a question. Type: 

90 INPUT "WHOSE RECORD DO YOU NEED"5N$ 

Then we have to scan the matrix and compare N$, the name we INPUT, with 
each element, R$(E,D), until we find a match. This means setting up the FOR- 
NEXT loops again and scanning every element. Add: 

120 FOR E = 1 TO 5 

130 IF R$ ( E *2) = N$ THEN 170 

140 NEXT E 

150 PRINT N$; n IS NOT IN THE FILE* 11 
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180 

BEEP : 

PRINT 

: GOTO 90 

170 

PRINT 

EiTAB(ll) 5R$(E »1 ) STAB (22) i 

180 

PRINT 

R$(E t 2 ) 

;tab<33) ;r$(E »3) 

180 

PRINT 

: GOTO 

80 


Answer with names that are in the DATA Lines, and those that are not. Lines 
160 and 190 have built-in defaults back to the question. 

Notice the new function we slipped into Line 160. Each time BEEP is encoun- 
tered, the Computer BEEPs for about a half second. Handy thing to keep around 
for times like this when we need to wake up the operator. We 11 study BEEP in 
more detail later. 

The key Lines are 170 and 180. They PRINT 4 things: 


E 

The entry number on that date 

R$(E,1) 

The Date in the cell just preceding the 
one containing the member’ s name. 

R$(E,2) 

The Name 

R$(E,3) 

The Amount 


If you have trouble visualizing what Lines 170 and 180 are doing, add these 
temporary Lines. They PRINT the address of each DATA element just below it 
and is very helpful: 

185 PRINT E 5TAB ( 12 > ?E 5 1 5TAB ( 22) 5E i2 i 
188 PRINT T AB ( 3 1 ) ?ES3 

...and RUN. 


Implications 

Again, the preceding program was not written to be a model of programming 
style and efficiency ~ but to teach the basics of loading and retrieving “record- 
keeping”-type information from a matrix. 



YOU BEEPED^ 


MOT IN FILE 
PAY ATTENTION, 
BUDDY, l MI6UT 
A4K QUE4TIOW4 
_ LATER' 
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EXERCISE 39-1 

with: 

: Write a program that fills a two dimension string array 

JONES,C. 

10439 

100.00 

ROTH,J. 

10023 

87.24 

BAKER, H. 

12936 

398.34 

HARMON,D. 

10422 

23.17 


EXERCISE 39-2: Sort the names of the array in Exercise 39-1 alphabet- 
ically. Don’t forget to keep the rest of the information on each row 
with the original name. This exercise will be a challenge. Think it through 
carefully. 


EXERCISE 39-3: If you survived Exercise 39-2, try sorting column 3 in 
the array in increasing order by the numbers in Column 3. 


Learned in Chapter 39 
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Advanced Graphics 


S 

pecial Graphic Characters 

The uses of PRINT go well beyond the simple display formatting we have learned 
so far. Used with the CHR$ function, PRINT can speed up our graphic displays 
by a factor of 25 in some applications. That’s right, 25 times as fast as PSET. 

How can that be? Remember the set of ASCII characters discussed in Chapter 
21? If not, better take a brief glance to refresh your own memory cells. The 
codes from 128 to 255 represent graphics and foreign characters. Those between 
225 and 255 are known as graphic blocks. Let’s check out these characters with 
this NEW program: 

10 CLS 

20 FOR I = 225 TO 255 

30 IF I = 5*INT(I/5) THEN PRINT 

40 PRINT I 5CHR$< 1)5" 2 "5 

50 NEXT I 

G0 GOTO G0 

...and RUN. 
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The characters are made up of the very same PSET pixels we used before. By 
PRINTing the complete characters, we can light as many as 48 pixels with one 
statement. It would take many PSET statements to do the same thing. The gain 
in speed is considerable. 

A BLOCK OF PIXELS 

TUA£H WHAT 


Skeptical? Bring out your stop watch, and we’ll do the same thing 2 different 
ways. First the PSET approach: 

NEM 

10 CLS 

20 FOR Y=0 TO 32 
30 PSET ( X » Y ) 

40 NEXT X : NEXT 
50 GOTO 50 

...and RUN. 

It fills up a quarter of the display in about 50 seconds. Contrast that with using 
the PRINT statement and graphic character 239: 

10 CLS 

20 FOR P=0 TO 159 
30 PRINT CHR$ ( 239) 5 
40 NEXT P 
50 GOTO 50 

...and RUN. 

Ahhhh. About 2 seconds. The message is clear: PRINTing graphic characters is 
a lot faster than PSETting them. 


: FOR X=0 TO 239 
Y 
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EXERCISE 40-1: Rewrite the program to fill the entire display using 
CHR$(239). Hint: 640 PRINT positions must be filled. 


Dilemma 

This puts us on the horns of a real dilemma. We’ve seen how convenient PSET 
is for jobs like plotting math functions, yet see just how slow PSET is compared 
to PRINTing graphic characters. Which method should we use? 

Before making a hasty decision, let’s zoom in for a closer look at graphic 
characters. 


Starting with the character we need to store, develop a program which will display 
it almost instantly. 



Figure A 


Sound impossible? Well, just pay attention. 

To achieve this kind of speed, the entire figure will be stored in a single variable 
using string concatenation. (Yes, we covered concatenation earlier. See Chapter 
23). If successful, we can then PRINT the entire figure instantaneously anywhere 
on the display with a PRINT@ statement. 


Graphic Codes 

Check each block that makes up the graphic figure and find its matching ASCII 
number in Figure A. Each of these numbers placed in a DATA statement to be 
READ by the NEW program. 




Figure B 
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Nothing to it! Once we recognize the pattern, it’s easy to find the number for 
any graphics character. 

Try translating a few characters from Figure B before peeking at the program. 
For those who don’t need the practice, the top row is composed of codes: 

228 224 234 236 235 233 224 227 


Building the String 

The next task is to combine these code numbers into a single string variable. 
At first blush, we might be tempted to use a brute force method like: 

X$ = CHR$ ( 228 ) + CHR$ ( 224 ) + CHR$(234) + *♦ 

But why not place the numbers in DATA statements and READ them into the pro- 
gram? Enter this NEW program: 


10 

CLS 


40 

FOR 1 = 1 

TO 8 

50 

READ N 

: X$ = X$ + CHR$ ( N ) 

60 

NEXT I 


100 

PR I NT096 

,X$ 

500 

DATA 228 

1 224 ,234 1 236 ,235 ,233 ,224 ,227 

220 

PRINT09G 

,X$ 


...and RUN. 

Line 10 CLearS the display. 

In Line 50, each code number is READ into N. It is then converted 
to a graphics character via the CHR$ function and added to the end 
of the string variable X$. 


Line 100 PRINTs X$, and 
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Line 500 holds the DATA. 

Does your program look like the top row of Figure B? 


Cursor Control Codes 

Add the second and third rows with: 


30 

FOR L 

= 1 

TO 3 



80 

NEXT 

L 




510 

DATA 

224 

,238 

,238 

,239 

520 

DATA 

224 

,224 

,232 

,239 


,239 ,237 ,235 ,224 
,239 ,232 ,224 ,224 


...and RUN. 

Oops! The figure calls for three rows, one on top of the other, but our string 
PRINTS everything in one row. How can we position the second and third rows 
directly under the first without using three separate strings? Everyone look back 
to the ASCII chart in Appendix A. Pay particular attention to codes 8 and 10. 
By adding the appropriate cursor motion codes into X$ after each row, the second 
and third row of characters will PRINT where they belong. 

After each row is PRINTed, we need to move the cursor down once, then left 
eight spaces. Add: 

70 >($ = )•($ + 0 H R $ ( 1 0 ) + STRING$(8,8) 


That should do the trick. RUN to make sure we are on the right track. 
Voila! Our very own creature. 


Notice how quickly the figure is displayed once the string is assembled in mem- 
ory. We have just unlocked the secret of high speed graphics using BASIC. 


But Can It Fly? 

Some people don’t know when to quit. I suppose you want the figure to flap its 
wings! OK. 
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The Rationale 

Before we start this adventure, be aware that we are working with a slow computer 
language. BASIC is very easy to use, but its simple nature makes it the sloth of 
computer languages. Unfortunately, animation requires speed. 

Our alternatives: 

1) Use assembly language— ARRRGGH. 

2) Work only with PSET and PRESET and a single bouncing dot. 

3) Continue with the “string packing” technique used above. 

The latter technique requires extra programming effort, but it is the only way to 
generate reasonably fast graphics in BASIC. So much for the rationale. 

To achieve the animation, we will create several packed string variables -identical 
to the first one, except the wings will be in slightly different positions. By 
displaying these strings in rapid fire succession, the illusion of motion will be 
created. This idea is not new. It is the same process used to create animated 
cartoons. 

The other two figures (or frames) needed are shown in Figure C. 

Loading an Array 

Instead of storing these figures in separate variable names, let’s turn X$ into a 
string array. Change the program to read: 

40 FOR 1=1 TO 8 

50 READ N : X$(F> = X$(F) + CHR$(N) 

G0 NEXT I 

70 X$ ( F ) =X$ ( F ) + CHR$ ( 10 ) +STRING$ ( 8 tQ ) 

Now we can add the looping instructions to READ in DATA for all three strings: 

20 FOR F = 1 TO 3 

90 NEXT F : X$<4> = X$<2) 
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Figure C 


and the DATA: 


530 REM * SECOND FIGURE * 

540 DATA 224,224,234,238,235,233,224,224 
550 DATA 232,232,238,233,239,237,232,232 
580 DATA 224,224,232,230,239,232,224,224 
570 REM * THIRD FIGURE * 


rrrr 


IT FLYS!' 
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580 DATA 224 ,224 ,234 ,236 ,235 >233 >224 >224 
590 DATA 224 >228 *238 *239 *239 *237 *227 *224 
600 DATA 228 >231 >232 >239 ,239 >232 >231 ,227 

and finally, instructions to display the figure: 

100 FOR F= 1 TO 4 : PR I NT029B >X$ ( F ) 5 

110 FOR 1=1 TO 30 : NEXT I : NEXT F 
200 GOTO 100 

The complete program should now look like this: 


10 CLS 

20 FOR F = 1 TO 3 
30 FOR L= 1 TO 3 
40 FOR 1=1 TO 8 

50 READ N : X$(F) = X$(F> + CHR$(N) 

60 NEXT I 

70 X$(F)=X$(F)+CHR$( 10)+8TRING$<8 #8) 

80 NEXT L 

90 NEXT F : X$(4) = X$<2) 

100 FOR F = 1 TO 4 : PRINTS 296 *X$(F) ? 

110 FOR 1=1 TO 30 : NEXT I : NEXT F 
200 GOTO 100 

500 DATA 228 >224 >234 >236 >235 >233 >224 >227 
510 DATA 224 >236 ,238 ,239 ,239 ,237 ,235 ,224 
520 DATA 224 >224 #232 >239 >239 >232 *224 *224 
530 REM * SECOND FIGURE * 

540 DATA 224 >224 >234 >236 >235 >233 >224 >224 
550 DATA 232 >232 >238 >239 >239 >237 >232 >232 
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5G0 DATA 224 ,224 ,232 *239 ,239 ,232 >224 ,224 
570 REM * THIRD FIGURE * 

580 DATA 224 ,224 ,234 ,23G ,235 ,233 ,224 ,224 

590 DATA 224 >228 >238 ,239 *239 >237 >227 >224 

G00 DATA 228 ,231 >232 >239 ,239 >232 >231 *227 

...and RUN 

Up, up, and away. The Computer acts like a series of flash cards. 

Line 110 adds a delay to control the speed of animation. By playing with the 
delay and changing flap speed, it can be made to look like a rooster trying to 
take off. 

Save this program as BIRD. We’ll use it again in a later Chapter. 


EXERCISE 40-2: List the sraphic codes that make up the followins 
fisure, then pretend it is a snail: 



Learned in Chapter 40 
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Animation 
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Graphics character code pattern 
Cursor control codes 



implications of instantaneous (well, nearly instantaneous) input are not 
limited to the applications shown thus far. INKEY$ adds a new dimension to 
games and animation programming . U sing INKEY $ , we can write game programs 
with “real time” response to keyboard input. 

CLOAD “BIRD”, the wing flapping monstrosity from the last Chapter. Here is 
the complete listing: 

10 C L S 

20 FOR F = 1 TO 3 
30 FOR L = 1 TO 3 
40 FOR 1=1 TO 8 

50 READ N : X$(F) = X$<F> + CHR$(N) 

80 NEXT I 

70 X $ ( F ) = X $ ( F ) + C H R $ ( 1 0 ) +STR I NG$ ( 8 ,8) 

80 NEXT L 

30 NEXT F : X$<4> = X$(2) 

435 
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100 FOR F = 1 TO 4 : PR I NT0296 * X$ ( F ) 5 

110 FOR 1=1 TO 30 : NEXT I : NEXT F 
200 GOTO 100 

500 DATA 228 ,224 ,234 ,236 *235 >233 ,224 >227 
510 DATA 224 ♦ 236 ,238 ,239 >239 >237, 235, 224 
520 DATA 224 ,224 ,232 >239 >239 >232 >224 ,224 
530 REM * SECOND FIGURE * 

540 DATA 224 ,224, 234 ,236 >235 ,233 ,224, 224 
550 DATA 232 ,232 ,238 >239 >233 >237 ,232 >232 
580 DATA 224 >224 *232 *239 >239 >232 >224 >224 
570 REM * THIRD FIGURE * 

580 DATA 224 ,224,234,236, 235, 233, 224 ,224 
590 DATA 224 >228 >238 #239 *239 >237 >227 *224 
600 DATA 228 >231 ,232 >239,239,232*231 ,227 

Adding Motion With INKEY$ 

INKEY$, along with the 4 arrow keys on the keyboard, can move the BIRD 
around the display. The first step is to change the PRINT position in Line 100 
into a variable. Change: 

10 CLS : P = 296 

100 FOR F = 1 TO 4 : PRINT0P >X$ ( F ) 5 
...and RUN. 

Because of the way the PRINT locations are laid out, changes in the position 
variable, P, will have to be made according to: 

Right P = P + 1 

Left P = P-1 

Up P = P — 40 

Down P = P + 40 

Horizontal positions on the display differ by 1. Vertical positions differ by 40. 
Make sure this is clear before proceeding. 
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Since we want to direct the movement from the keyboard, we need to associate 
the above changes in P with the correct keys. A quick look at Appendix A shows 
that the arrow keys return the following ASCII values: 

Right 28 

Left 29 

Up 30 

Down 3 1 

So, the proper matchups are: 


Right 

28: 

P = P+1 

Left 

29: 

P = P-1 

Up 

30: 

P = P — 40 

Down 

31: 

P — P + 40 


Add this information to the BASIC program as follows: 


95 P = P + K 
120 X $ = I N K E 
130 K = 0 : V 
140 IF U = 2 8 
150 IF y=29 
1G0 IF y=30 
170 IF M=31 
200 GOTO 95 

Don’t RUN yet. 


'$ : IF X$=" " 

: ASC ( X$ ) 


THEN 

K = K + 1 

THEN 

K = K - 1 

THEN 

K = K - 4 0 

THEN 

K = K +40 


THEN 180 


In Line 120, keyboard input is stored in the string variable X$. In Line 130, V 
is set to the ASCII value of X$. This value is compared to the ASCII numbers 
returned by each of the four arrow keys in Lines 140 through 170, and K is 
changed accordingly. Then back in Line 95, the display position variable P is 
adjusted by K. 


I’ll bet you forgot about testing for the figure floating off the edge of the display. 
Stick with us kid, we wouldn’t steer you wrong. (Also: “The check is in the 
mail,” “I’m from the government and I’m here to help you.”) 



wmat£ with 

THE BROOM 

'l 


JU£T CLEAN IN 


UP AFTER OUR 


FLY INI FRIEND/ 

£T 

r> 


«§»•» 


.v.y. . . v.'. 

:*XvXv:v. 



I! vX.’.y 


W 
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Add: 


180 IF P+K > 511 THEN P=P-K : GOTO 100 
190 IF P+K < 0 THEN P=P-K : GOTO 100 

Now RUN it. Press the arrow keys to move the figure around the display. 

Argggg! Forgot one tiny little detail. Can’t leave a messy trail behind our flying 
friend, can we? 

Add Line 98: 

98 CL9 


and change Lines 180 and 190 to: 

180 IF P+K > 511 THEN P=P-K : GOTO 98 
190 IF P+K < 0 THEN P=P-K : GOTO 98 

...and RUN. 

There it is: A flying creature that would give King Kong fits. All due to the 
INKEY$ function and some elementary programming. 

So much for weird birds. 

Learned in Chapter 41 
Miscellaneous 
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A Buzz Job 


T^pe: 


ENTER 


Sorry if that scared the dog! Just couldn’t resist it. It is widely incorporated in 
programs as an alarm to indicate something. 

Sure ... do it again. We’ll wait. 

Since our computer has a “Real Time Clock,” we can use it as a “time is up” 
alarm. Just include BEEP in the program. It also makes a great audio prompter, 
telling the operator it s time to do something. The applications are virtually 
endless. 

BEEP is just a simplified form of: 


PRINT CHR$ ( 7 ) 

Try it. 


ENTER 
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Technically, what we heard is called the BELL, and ASCII 7 makes it ring. 
Buzzers have pretty well replaced bells, so we’ll usually refer to it as a buzzer, 
alarm, or something more contemporary. 

Type in this NEW program: 

10 CLS : PRINT 

20 INPUT "TYPE ANY NUMBER" !N 
30 IF N <> 0 THEN B0 

a 0 BEEP: PRINT "I CAN'T DIVIDE BY ZERO!" 

50 GOTO 20 

G0 PRINT "100 DIVIDED BY " i N 5 " = " 51 00 / N 
70 PRINT : GOTO 20 

...and RUN. 

Enter some familiar numbers, then try 0. The Computer tells all. The noise can 
be interpreted as a chastisement for trying to divide by 0. Your imagination can 
take it from there. 

The point of this is that the BEEP statement is used mostly to alert the user about 
something. It may tell us to do something or alert us we’ve made an error or 
just zapped a Klingon. 


Sound Statement 

Fortunately, our use of sound isn’t limited to the single tone of the BEEP state- 
ment. The full range of frequencies, usable by most human ears, is available to 
create Concertos. Move over Beethoven! 
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For example type: 


SOUND 2793 >50 


ENTER 


and hear a perfect concert pitch A of 440 cycles per second, for about 1 second. 
(Can’t you just see the concertmaster rising with a Tandy 200 . . .) 


In Chapter 39, we used BEEP as a prompt. Now type: 


SOUND 243d »G 


Sound familiar? It is the frequency used by the BEEP statement, and it sounded 
for 6 internal “clock ticks,” or about 6/50 = .12 seconds. 

The SOUND statement plays a specific note for a specific duration, and we do 
the specifying. The first number is a number which relates to a note. The second 
number is the duration in clock ticks. The clock ticks about 50 times per second. 


The frequency must be from 0 - 16383, and the SOUND duration from 0 - 255 or an 
?FC Error will occur. 


We must use the chart below to determine the frequency of the note we want to 
play. Let’s listen to the range of sounds we can do. Type in this program: 


10 

CLS : 

PRINT 

"FIRST LOOP" 

20 

FOR X 

= 100 

TO 2000 STEP 30 

30 

SOUND 

X 1 5 


40 

NEXT X 



50 

PRINT 

"SECOND LOOP" 

G0 

FOR X 

= 2000 

TO 1S383 STEP 200 

70 

SOUND 

X >5 


80 

NEXT X 




...and RUN. 
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Octave 


1 

2 

3 

4 

5 

G 

12538 

6269 

3134 

1567 

783 

G# 

11836 

5918 

2959 

1479 

739 

A 

11172 

5586 




A# 

10544 

5272 



659 

B 

9952 

4976 

2488 

1244 

622 

C 

9394 

4697 

2348 

1174 

587 

C# 

8866 

4433 

2216 

1108 

554 

D 

8368 


2092 

1046 

523 

D# 

7900 



987 

493 

E 

7456 



932 

466 

F 

7032 


1758 

879 

439 

F# 

6642 

3321 

1660 

830 

415 


It sounds terrible because we’re going down the musical scale without regard to 
musical “intervals.” We must choose the notes more “chronologically.” Try this 
NEW program: 

10 SOUND 2348 ,30 
20 SOUND 1 39S ,30 
30 SOUND 1758 ,30 

...and RUN. 

We could use a different statement for each note, as above, but we’re into advanced 
stuff now so let’s cut down the programming by using READ-DATA statements. 
Type NEW, and then we’ll start over again: 


10 CLS 

20 READ N , L 
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30 IF N = 0 THEN END 
40 PRINT N 5 L * 

50 SOUND N *L 
B0 GOTO 20 

500 DATA 2348 #20 #2348 *20 >1567 *20 >1587 *20 
510 DATA 1386 *20 *1396 *20 *1587 *50 
639 DATA 0 *0 

...and RUN. 


Yes, yes, I’m sick of Twinkle Twinkle too, but now that we have it started, we 
might as well finish and CSAYE it: 


520 DATA 
530 DATA 
540 DATA 
550 DATA 
560 DATA 
570 DATA 
580 DATA 
590 DATA 
600 DATA 


1758 *20 *1758 *20 *1864 *20 *1864 *20 
2092 *20 *2092 *20 *2348 *50 *1567 *20 
156 7 *20 *1758 *20 *1758 *20 *1864 *20 
1864 *20 *2092 *50 *1567 *20 *1567 *20 
1758 *20 *1758 *20 *1864 *20 *1864 *20 
209 2 *50 *2348 *20 *2348 *20 *1567 *20 
15 67 *20 *1396 *20 *1396 *20 *1567 *50 
1758 *20 * 1758 *20 * 1864 *20 * 1864 *20 
2092 *20 *2092 *20 *2348 *50 


...and RUN. 

We simply READ in a pair of numbers, the frequency and duration, and play 
them in Line 50. 

Now let’s try for a song with a little more programming built in. Since we don’t 
normally think in terms of clock ticks, let’s use timing numbers that make more 
sense, and let the program do the converting for us. How about 1 divided by the 
actual note length. Quarter notes will be 4, eighth notes will be 8 and whole 
notes will be 1 . 
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Delete Lines 500-600, and change Line 50 to: 

50 SOUND N» ( 1 / L ) *50 

and put in some DATA: 

500 DATA 3718 >1 >4148 >4 t4S97 >8 >3718 >4 
510 DATA 4184 ,8 ,4897 »2 >2348 *2 >2793 ,4 
520 DATA 2348 » 1 

...and RUN. 

Hey, that doesn’t SOUND too bad. Since this phrase is repeated, we can use the 
same DATA Lines. We could retype them, but why not use the EDITor and 
PASTE them in... etc. The end result should be these three new DATA Lines: 

550 DATA 3718 » 1 >4148 >4 >4697 >8 »37 1 8 »4 
5G0 DATA 4184 >8 >4807 >2 >2348 *2 *2793 >4 
570 DATA 2348 1 1 

Now add these three Lines: 

530 DATA 3134 tl >3718 t2 >4887 >2 *4184 > ♦ 5 
580 DATA 3134 t2 >3718 >4 »4S97 »8 >4148 *2 
590 DATA 4148 >2 >4897 > 1 

...and RUN. 

(Hey man, where’s the gig?) 

One finishing touch. Add: 

540 DATA 1 t 2 

...and RUN. 
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That’s better. It puts a half note rest between the two phrases. By selecting 1 
as the frequency, the SOUND is out of the audible range, giving a note that only 
the dog will enjoy. 


Sound Control 

The SOUND statement can also turn the computer’s speaker ON or OFF. It will 
not prevent the speaker from beeping with the SOUND statement or when we 
make an illegal entry, but it will stop the noise we hear while LOADing data 
from cassette or while listening to the dial tone in TELCOM. 

This is convenient while trying to load tapes during a meeting, in a quiet library 
or in a class. 

Connect the cassette recorder to the Computer, and insert a program tape. Set 
the recorder to PLAY then type: 


SOUND OFF 

Then type: 


ENTER 


CLOAD 


ENTER 


Watch the display. After it reports that it found a program, it continues loading 
without a SOUND. It remains silent even if we turn the Computer off and on. It 
needs SOUND ON to turn on the speaker. After the tape stops, type: 


SOUND ON 


ENTER 


And repeat the CLOAD procedure. There it is again, that wretched noise. 

Learned in Chapter 42 
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PEEK and POKE 


P 

R EEK and POKE are BASIC words that allow us to do non-BASIC things. 
They provide the means whereby we can PEEK into the innards of the Computer’s 
memory and, if we wish, POKE in new information. 

It is not our purpose here to become experts in machine language programming 
nor on how the Computer works. We have to approach this and related topics a 
little gingerly, lest we fall over the edge into a computer abyss (or is it an abysmal 
computer?). 

We do know, however, that computers do their thing entirely by the manipulation 
of numbers. Therefore, when we PEEK at the contents of memory, guess what 
we’ll find? Numbers? Very good! (Ummmyaas). 

The Memory Map in Figure A shows that large chunks of the computer’s memory 
are reserved or “mapped” for very specific uses. The BASIC ROM, for example, 
uses byte addresses 0 through 32767. The RAM (which holds our programs and 
where execution takes place) is assigned addresses 32768 - 65535. All numbers 
we talk about here are decimals, not hex, octal, binary or Sanskrit. 


452 
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Decimal 

Hex 

Function 

Address 

Address 


65535 

FFFF 

END OF STANDARD “24K” SYSTEMS 



BANK SWITCHED WITH “24K” 
OPTIONAL RAM 

40960 

A 000 

START OF STANDARD “24K” RAM 

40959 

9FFF 

END OF READ ONLY MEMORY 

0 

0000 

START OF SYSTEM ROM 


Figure A 


Type in this NEW program: 

20 N = 0 

40 PRINT N 5 PEEK < N ) t CHR$ ( PEEK ( N ) ) 

50 N = N + 1 
60 GOTO 40 

Let’s analyze the program before RUNning it. 

Line 20 sets the beginning address where we want to start PEEKing. 

As Figure A shows, there are lots of good places to go spelunking, 

and we can change Line 20 to start wherever we want. 

Line 40 PRINTs three things: 

1. The address — that is, the number of the byte in memory at 
whose contents we are PEEKing. 

2. The contents of that byte, expressed as a decimal number 
between 0 and 255. 

3. The contents of that address converted to its ASCII character. 
(Many of the ASCII characters are not PRINTable. Go back to 
the Chapter on ASCII if your memory has grown dim.) 
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Okay, now RUN the program, being ready to freeze it with PAUSE if you see 
something interesting. You have to be able to read vertically as the letters swish 
by. It can also be stopped at any time with BREAK and restarted with 

CONT without having to start all over again with N at 0. Refer to the chart in 
Figure A to see where in memory you’re looking. 


Change N to start at different places in memory, and PEEK to your heart’s delight. 
You can’t goof up anything by just PEEKing. It’s indiscriminate POKEing that 
gets people into trouble. 


The command level is very handy for resetting the starting address. We can 
change the value of N by just typing: 


N = 25000 


for example, then: 

CONT 


instead of RUN. 

Didn’t see anything interesting? What did you find starting at address 32768? 

When done PEEKing, and having seen far more information than can possibly 
be absorbed, rework Line 40 to read simply: 

40 PRINT CHR$ ( PEEK ( N ) ) 5 


It PRINTs only the ASCII characters, horizontally and is the ideal program to 
RUN when friends visit. Just act casual about the whole display, and avoid any 
direct questions. Makes a great background piece for a science fiction movie. 


When you find an interesting spot, hit 


SHIFT 


BREAK, then: 


PRINT N 


at the command level to find out where in memory you are PEEKing. (Don’t 
you wish we could explore the corners of our minds as easily?) 
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CONTinue on when ready. 

Having degenerated from PEEKing to leering, we’d better move on. 

Careless POKEing Can Leave Holes... 

Before POKEing, we’d better see that we’re not POKEing a stick into a hornets’ 
nest. It’s with the greatest of ease that we destroy a program in memory by 
POKEing around where we shouldn’t. 

Obviously there is no use POKEing the ROM area since ROM stands for Read 
Only Memory. It’s not changeable. Anything above 32767 should be available 
memory, unless taken up with our BASIC program or required for processing. 
With such a short program as ours we surely can’t goof anything up? Can we? 

Let’s PEEK around 57344 and see if anything is going on there. Change these 
two program Lines to: 


20 N = 57344 

40 PRINT N ; PEEK (N) * 

...and RUN. 


57344 

0 

57345 

0 

5734G 

0 

57347 

0 

57348 

0 

57348 

0 

57350 

0 

57351 

0 

57352 

0 

57353 

0 

57354 

0 

57355 

0 

5735G 

0 

57357 

0 

57358 

0 

57350 

0 

etc. 





What we see are the address numbers and their contents, in easy-to-read parallel 
columns. Unless you’ve been messing around with other programs, we should 
just see nice columns of 0’s. The memory at these locations has not been used. 






lift H0 fV 
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Let’s change our program and POKE in some information and do something with 
it. Make it read: 

10 REM * POKE PROGRAM * 

20 N = 57344 
30 READ D 
40 POKE N»D 

50 N = N + 1 

G0 IF N = 57354 THEN END 
70 GOTO 30 

100 DATA 80 >89 >89 >75 >45 >85 >45 >88 >79 >79 

Before RUNning, let’s analyze it. 

Line 20 initializes the starting address at 57344. 

Line 30 READs a number from the DATA Line. 

Line 40 POKEs the DATA “D” into address “N.” 

Line 50 increments the address number by one. 

Line 60 ENDs execution after we’ve POKEd in all 10 pieces of DATA. 

Line 70 sends us back for more DATA. 

Line 100 holds the DATA we are going to POKE into memory. 

...now RUN. 

Well, that was sure fast. I wonder what it did? How can we find out? Should 
we PEEK at it? Yes, but let’s leave the old program in and just start a new one 

at 200. 

200 REM * PEEK PROGRAM * 

210 FOR N = 57344 TO 57353 
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220 PRINT N t PEEK ( N ) 
230 NEXT N 


.and RUN 200. 


57344 

80 

57345 

68 

57346 

60 

57347 

75 

57348 

45 

57349 

65 

57350 

45 

57351 

66 

57352 

79 

57353 

79 


How about that? We really did change the contents of those memory locations. 
We shot the numbers from our DATA Line right into memory. Now if we only 
knew what those numbers stood for. Wonder. ..if we changed them to ASCII 
characters, would they tell us anything? 

Add and change: 

205 CLS 

220 PRINT CHR$( PEEK (N) ) ,* 

...and RUN 200 


And that’s how PEEK and POKE work. 
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Learned in Chapter 43 
Statements Functions 

POKE PEEK 


Miscellaneous 

Memory map 
ROM 




I n classical mathematics (fancy words for simple ideas), there exist what are 
known as the “logical AND,” the “logical OR,” and the “logical NOT.” 

So the One Cow Said to the Other Cow... 

In Figure A, if gate A AND gate B AND gate C are open, the cow can move 
from pasture # 1 to pasture #2 . If any gate is closed, the cow’ s path is blocked. 



Figure A 

The principle is called “logical AND.” 

In Figure B, if gate X OR gate Y OR gate Z are open, then old Bess can move 
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from pasture #3 to #4. That principle is called “logical OR.” These ideas are 
both pretty logical. If the cow can figure them out, surely we can! 



Figure B 

Using these ideas is very simple. Type this NEW program: 


10 

INPUT 

"IS 

GATE 'A 

7 OPEN" ; A$ 

20 

INPUT 

"IS 

GATE 'B 

7 open";b$ 

30 

INPUT 

" IS 

GATE 'C 

7 OPEN"?C$ 

40 

PRINT 





50 

IF A$ = 

H y " 

AND B$ = 

ii y ti 

AND C$ = " Y " THEN 

B0 

PRINT 

"OLD 

BESSIE 

IS 

SECURE ♦ " 

70 

END 





80 

PRINT 

"ALL 

GATES 

ARE 

OPEN ♦ " 

90 

PRINT 

"OLD 

BESSIE 

IS 

FREE TO ROAM," 


...and RUN. 

Answer (Y/N) the questions differently during different RUNs to see how the 
logical AND works in Line 50. 


Where Is the Logic in All This? 

You should by now understand every part in the program, except perhaps Line 50. 


Lines 10, 20 and 30 INPUT the gate positions as open (which we 
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defined as equal to “Y”), or closed (defined as “N”). We could have 
defined them the other way around and rewritten Line 50 to match, if 
we’d wanted to. 

Line 50 is the key. It reads, literally, “If gate A is open, AND gate 
B is open, AND gate C is open, then go to Line 80. If any one gate 
is closed, report that fact by defaulting to Line 60.” 

Imagine how this simple logic could be used to create a super-simple “computer” 
consisting of only an electric switch on each gate. Add a battery and put a light 
bulb in the farmer’s house. The bulb could indicate whether the gates are all 
open. Such a “gate-checking” computer would have only three memory cells — 
the switches. 


Hmm. It would do the job a lot cheaper than a Tandy 200... but would be awfully 
hard to play Invaders with. 


EXERCISE 44-1 : Using the above program as a model and the "OR 
logic” seen in Figure B, write a program which will report Bess' status 
as determined by the position of Gates X, y and Z. 


Teacher’s Pet 

Here is a simple program which uses > instead of the equals sign in a logical 
test. The student passes if he has a final grade over 60 OR a midterm grade over 
70 AND a homework grade over 75. Enter this NEW program, RUN it a few 
times, and see how efficiently the logical OR and logical AND tests work in the 
same program Line (40). 

10 INPUT "FINAL GRADE" ?F 

20 INPUT "MIDTERM GRADE" ?M 

30 INPUT "HOMEWORK GRADE" 5H 

40 IF ( F >G0 OR M >70 ) AND H>75 THEN 70 

50 PRINT "FAILED" 

G0 END 

70 PRINT "PASSED" 



464 Chapter 44 


Does this give some idea of the power and convenience of logical math? The 
actual “cut off’ numbers could, of course, be set at any level. 


Logical Variations 

This next program example mixes equals, greater- than and less- than signs in the 
same program. It determines and reports whether the two numbers we INPUT 
are both positive, both negative or have different signs. 

Analyze the program. Note the parentheses. Although they are not necessary, 
they tell us to shift our thinking to “logical.” Type it in, and RUN. 


NEN 




10 

INPUT 

"FIRST NUMBER I S " 5 

X 

20 

INPUT 

"SECOND NUMBER IS" 

; y 

30 

IF (X 

> — 0 ) AND ( Y > = 0 ) THEN 70 

40 

IF (X<0) AND ( Y < 0 ) THEN 

90 

50 

PRINT 

"OPPOSITE SIGNS" 


80 

END 



70 

PRINT 

"BOTH POSITIVE OR 

ZERO 

80 

END 



90 

PRINT 

"BOTH NEGATIVE" 



With Graphics Too, Yet 

Yes, the logical symbols also work along with the graphic statements. See if you 
can figure out the surprise which will be caused by the logical AND in Line 
40. Type this NEW program in, and RUN. 


10 CLS 

20 FOR X = 1 0G TO 132 
30 FOR Y = 43 TO 83 

40 IF 00=119) AND (Y>=63) THEN 80 
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50 P S E T (X » Y ) 

G0 NEXT Y 
70 NEXT X 
93 GOTO 99 


Use kiillil BREAK to exit the program’s endless loop. 


What happens if we replace the AND in Line 40 with an OR? After you think 
you have it figured out, do it and see the result. 

Did you guess right? 

There’s More? 

Oh, yes -- the only limit is your imagination. See how easily the logical notation 
makes the drawing of lines? Change Line 40 to read: 

40 IF ( X = 1 19) OR ( Y = G 3 ) THEN G0 

What happens to the program if we replace OR with AND? Sketch your estimated 
result, then change Line 40 and try it. 

Hope you got it right. If not, it really sneaked up, didn’t it! 

Using the INT function we can create an elaborate checkerboard. The reasoning is: 

In the horizontal dimension: 

The INT(X/7)*7-X will equal 0 when X equals 112,119 and 126. 

In the vertical dimension: 

The INT(Y/7)*7-Y will equal 0 when Y equals 49,56,63,70 and 77. 


Oh come on, it’s very simple if you take the time and think it through! 
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Replace the old Line 40 with: 

40 IF I NT ( X/7 ) *7-X=0 OR I NT ( Y / 7 ) *7 - Y = 0 
THEN G0 


and you will create an elaborate four-by-six checkerboard. 

And on and on it goes... 

NOT 

In addition to the logical AND and OR functions, we have what is called logical 
NOT. Here is how it can be used: 


NEW 





10 

INPUT 

"ENTER 

A NUMBER" 5N 

20 

L = NOT ( 

N >5 ) 


30 

IF L = 

0 

GOTO 

G0 

40 

PRINT 

"N 

WAS 

NOT GREATER THAN 

50 

END 




G0 

PRINT 

" N 

WAS 

GREATER THAN 5" 


...and RUN. 

Line 20 is obviously the key one, containing NOT. If the statement 
in Line 20 is true (namely, that N is NOT larger than 5), the Computer 
makes the value of L= — 1. The test in Line 30 then fails. 

If, on the other hand, N IS larger than 5, the statement is false and 
the Computer makes the value of L = 0. 

True = -1 and False = 0. (Time for the primal scream, again. All 
together, now...) 


More Logical Operators 

As if these 3 logical operators weren’t enough, the Tandy 200 Computer allows 
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use of 3 more “Logical” words. They are (in order of appearance): 

EQV, XOR, and IMP. 

To help see how these things work, let’s write a “testbed” program into which 
we can install them. 


10 

CLS 





20 

INPUT "ENTER A 

VALUE 

FOR 

x " ; 

\/ 

/\ 

30 

INPUT "ENTER A 

VALUE 

FOR 

y " ; 

Y 

40 

IF ( X <10) AND ( 

Y >10) 

THEN 

70 


50 

PRINT : PRINT " 

CONDITION 

WAS 

FALSE" 

60 

END 





70 

PRINT : BEEP : PRINT "CONDITION 

WAS TRUE" 


...and RUN. 

INPUT the number 5 for X and 15 for Y. No big deal. Both comparisons were 
true, which made the AND condition true. 


OR 

Replace the AND in Line 40 with OR and RUN. Try different numbers to get 
a feel for the program. 


EQV 

There are several more “advanced” logical operators. EQV stands for EQuiVa- 
lence. Replace the OR in Line 40 with the word EQV. 

40 IF ( X <10) EQV ( Y > 1 0 ) THEN 70 

The condition in Line 40 will be true only if both arithmetical comparisons are 
the same. Only if X is less than 10 AND Y is greater than 10, OR if X is not 
less than 10 AND Y is not greater than 10. 

Try the number 5 for X and 15 for Y. Both tests pass, so the overall condition 
is true. 
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Try 15 for X and 5 for Y. Both conditions are false, but since they are both the 
same (false in this case) the overall condition is true and execution jumps to Line 70. 

XOR 

XOR stands for exclusive OR. This means that if one and only one test passed, 
the overall condition will be true and the Computer will BEEP at us. 

Replace the EQV in Line 40 with the word XOR. RUN with different numbers. 
Try 5 for X and 15 for Y. Execution falls through to Line 50 because both tests 
pass. Remember if we were using the regular OR, the overall condition would 
be true. 


IMP 

Our final operator is IMP, which stands for IMPlication. This is probably the 
hardest to understand. The IMP condition will be true for all conditions except 
when the first test is true and the second test is false. The overall condition is then 
false. Replace the XOR with an IMP. 

40 IF ( X < 10) IMP ( Y > 1 0 ) THEN 70 


...and RUN. 

Try 5 for both X and Y. These numbers give us false condition. All other 
conditions are true. 


Order of Operations 

When trying to figure out which gets calculated first in the thick of a “humongous” 
equation, here’s the pecking order: 

Those operations buried deepest inside the parentheses get resolved first. The 
idea is to clear the parentheses as quickly as possible. When it all becomes a big 
tie, here’s the order: 

1 . Exponentation -- a number raised to a power. 

2. Negation, that is, a number having its sign changed. Typically, a 
number multiplied times -1. 

3. Multiplication and division - from left to right. 
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4. Addition and subtraction — from left to right. 

5. Less than, greater than, equals, less or equal to, greater or equal 
to, not equal to — from left to right. 

6. The logical NOT. 

7. The logical AND. 

8. The logical OR. 

9. The logical XOR. 

10. The logical EQV. 

11. The logical IMP. 

And In Conclusion 

Logical math is worth the hassle. As one last fun program, enter and RUN this 
“Midnight Inspection.” Line 100 checks each response for a NO answer (instead 
of a YES). Using logical OR, it branches to the “no-go” statement (Line 120) 
if any one of the tests is negative (“N”). 


10 CLS 
20 PRINT 
30 PRINT 
40 INPUT 
50 INPUT 
G0 INPUT 
70 INPUT 
80 INPUT 
00 PRINT 
100 IF A$ 
OR E$ 
110 PRINT 
120 PRINT 


"ANSWER WITH ' Y ' OR ' N ' ♦ " 

"HAS THE CAT BEEN PUT 0UT"?A$ 
"PORCH LIGHT TURNED 0FF";B$ 

"ALL DOORS/WINDOWS LOCKED" ?C$ 

"IS THE T . U i TURNED 0FF"5D$ 
"THERMOSTAT TURNED D0WN"5E$ 

: PRINT 

=»N" OR B$="N" OR C$="N" OR D$="N" 
= " N " THEN 120 
" GOODNIGHT" :END 

"SOMETHING HAS NOT BEEN DONE ♦ " 
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130 PRINT "DO NOT GO TO BED" 

140 PRINT "UNTIL YOU FIND THE PROBLEM!" 

150 GOTO 30 

In most cases, AND and OR statements are interchangeable if other parts of a 
program are rewritten to accommodate the switch. 

Learned in Chapter 44 

Operators Miscellaneous 

Logical AND Order of Operations 

Logical OR 

Logical NOT 

Logical EQ V 

Logical XOR 

Logical IMP 





10 REM LINE 10 
20 REM LINE 20 
40 REM LINE 40 

We know the above program is not destined for fame, but let’s Save (F3) it into 
the Computer’s memory or RAM (Random Access Memory). Each program 
Saved to RAM becomes a FILE. Like any file, it is labeled with a file name. 
We will call this program FIRST. Type: 

S a u e 11 R A M : F I R S T " (Remember to use the F3 key.) 

Using RAM: to specify RAM storage is optional. The Tandy 200 defaults storage to 

RAM if just written as 5 a m e "FIRST". 
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BASIC programs can be Saved to RAM, Cassette, Disk, Modem, RS-232 port. 
Printer or to the Tandy 200 display. Programs Saved to RAM, Cassette and Disk 
can be in either of 2 “formats”. Unless we specify otherwise, the so-called 
“compressed format” is used. 

1. In the compressed format, everything that can be abbreviated is 
stored in a shortened form. All numbers except those enclosed in 
quotes are stored in the minimum number of bytes, with BASIC 
keywords like PRINT and GOTO stored under special shorthand 
“codes”. This is the format usually used, and is fine for most 
purposes since it conserves memory and cassette space. This 
entire process is “invisible” to the user. 

2. There are times when we will sacrifice a little space for the 
luxury of Saveing a program or data “character for character” 
in what’s known as the “ASCII format.” Programs or files sent to 
a Modem, RS-232 port, Printer or to the Tandy 200 display can be 
sent in the ASCII format only. 

Files must be Saved in the ASCII format so they can be MERGEd with other 
files — either to hook them end-to-end, overlay one on top of the other, or 
intermesh their Line numbers. By Saveing a program in ASCII format, we can 
MERGE it into other programs without having to retype it. 

Merging Files 

Let’s try a MERGEr right now. Type this NEW program: 

30 REM THIS LINE GOES BEFORE LINE 40 
40 GOTO 10 'THIS LINE OVERLAYS LINE 40 

50 REM THIS LINE GOES AFTER LINE 4 40 

and Save it: 

Save "SECOND* 1 *A 
The t A causes it to be Saved in ASCII format. 




W-W-WUAT 
HAPPENED f 


“7 : fap; 

PVO ' MERGED 
WITH A MACK 
&g7 TRUCK! , 


ii 


Km 


✓ 

/ 

i 

Sir* 
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Now we can MERGE the two programs. LOAD the original program back into 
memory with: 

Load “FIRST" (Use the F2 key.) 


then: 

LIST 

to be sure only the FIRST program is in memory. Bring in the next program by 
typing: 

MERGE "SECOND" 

LIST the program to verify that we combined both programs into one. 


10 

REM 

LINE 

10 



20 

REM 

LINE 

20 



30 

REM 

THIS 

LINE 

GOES 

BEFORE LINE 40 

40 

GOTO 

10 

'THIS 

LINE 

OVERLAYS LINE 40 

50 

REM 

THIS 

LINE 

GOES 

AFTER LINE 40 


Of course, it worked! Look very carefully. We have new Lines 30 and 50, and 
the original Line 40 was replaced by Line 40 from the incoming file. 

Observe that the first program did not have to be in ASCII format, only the one 
drawn in for the MERGE. If we wish to MERGE two programs and their Line 
numbers conflict, we can easily renumber them first with the EDITor. 

The combined programs are now stored in memory under FIRST. BA. This can 
be verified by pressing FI to pull a list of Files. Notice that the program saved 
in ASCII is filed as SECOND. DO, the same .DO extension we see with TEXT 
files, since they are automatically saved in ASCII for EDITing. 

Try repeating the MERGE process except this time Save the first program in 
ASCII format by typing: 


Save "SECONDED 
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It still MERGES. Any file Saved as a .DO file is automatically stored in the 
ASCII format. 


Now that we have a MERGEd program, let’s Save it under a new file name 
Type: 


Save "MERGE! .BA" 

Hummm! The Computer reports an FC Error (Illegal Function Call). Since the 
BASIC file, FIRST.B A, is active in the Computer, it refuses to g ene ^te a backup 
file. There is a way around the problem. First, Save it as a new TEXT hie by 

typing: 


Save "MERGE!. DO" 


Next, type NEW. 

A quick check of the files shows that we are no longer working on a program 
listed in the Main Menu. Now: 


Load "MERGE!. DO" 


We can now Save this same program as a BASIC file by typing. 


Save "MERGE!" 

A file check shows that we have a new BASIC file called MERGE 1. BA along 
with the ASCII file MERGE 1 .DO . Clever, if a bit elusive the first time around . 


Cassette Merging 

Saveing and MERGEing from cassette is very similar to what we did in RAM. 
We’ll go through the MERGE procedure a little quicker this time since you 

already know the fundamentals. 


Type: 


Load "SECOND" 
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and check the LISTing: 

30 REM THIS LINE GOES BEFORE LINE 40 
40 GOTO 10 "THIS LINE OVERLAYS LINE 40 
50 REM THIS LINE GOES AFTER LINE 40 

Connect the cassette to the Computer and set it up for RECORD. Type: 

Save "CAS: SECOND" ,A 

Our program is now Saved on cassette in the ASCII format. Best to make sure 
we have a good copy on cassette, so Save it again. 

Reenter the first program by typing NEW and: 

10 REM LINE 10 
20 REM LINE 20 
40 REM LINE 40 

Now rewind the tape, and set the recorder for PLAY. Type: 

MERGE "CAS: SECOND" 

If the SECOND program was Saved on a tape with other programs, the Computer 
will skip those and find the one Saved in the ASCII format. When MERGE is 

complete, pull a LISTing to verify that we have MERGEd the cassette file with 
our resident program. 

Merging With RS-232 and Modem 

The last two devices that can be used to MERGE files are COM and MDM. 
When merging with COM, we must specify a five character configuration string. 


MERGE "C0M:3SN1DNN 
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This will MERGE a file entering the RS-232C port with the resident program. 
The port remains open until a Control Z is received. The system configuration 
in this example is: 

3 300 baud 

8 8 bit word length 

N No parity 

1 1 stop bit 

D Disable XON/XOFF 

N Normal control codes 

N Normal line feeds 

To MERGE a file from the internal modem with the resident program, we need 
only specify Word length. Parity, Stop bits, line (XON/XOFF) status, control 
codes and line feed status. For example: 

MERGE "MDM :701EI I " 


tells the Computer to MERGE information entering the PHONE jack via the 
internal MoDeM using 

7 Bit word length 

0 Odd parity 

1 1 stop bit 

E Enable XON/XOFF status 

I Ignore incoming control codes 

I Initiate line feed 

If you’re rusty in this area, go back and read the TELCOM section. 

Advanced Saveing 

We can tell the Computer where to Save a BASIC program, not just onto cassette 
or into RAM. As with MERGE, we must specify the device name: RAM, CAS, 
COM, or MDM. 

For example: 

Sane " CAS s BOOKS " 

saves the BASIC program “BOOKS” to the cassette recorder (the same as CS AVE 
“BOOKS”). 
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Save "C0M:37NiENN" 

sends the BASIC program out through the RS-232C port with the seven character 
string configuration code. 

Save "MOM: 7 I 1DNN" 

sends the BASIC program out through the Modem with the six character config- 
uration code. BASIC sets the BAUD rate to 300. 

Save "LPT:" 

sends the current program LISTing to the printer (same as LLIST). 

Save "LCD:" 

sends the current program LISTing to the display (same as LIST). 

Learned in Chapter 45 

Statements Miscellaneous 


MERGE 


Advanced Saveing techniques 
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M AXFILES 

The MAXFILES statement reports or sets the maximum number of files that the 
Tandy 200 can OPEN. For example: 

PRINT MAXFILES 

If you haven’t set MAXFILES to a different value, the Tandy 200 will report its 
default value of 1 . 

10 MAXFILES = 3 

in a BASIC program or at command level reserves space in memory to store 3 
data files. As we specify more files, less memory is available for programs. 

OPEN 

The OPEN statement is used to OPEN data files for the transfer of information 
for BASIC programs. For example: 

OPEN "RAM:TEST ♦DO" FOR OUTPUT AS 2 

479 
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This statement Line OPENs a file in the Computer’s memory (RAM) and assigns 
TEST. DO as its file name. FOR OUTPUT tells the Computer to OUTPUT the 
data sequentially from the program to memory. The number 2 assigns buffer 2 
As the buffer to transfer the data to memory. Since a second buffer is used, there 
must be at least 2 files assigned with the MAXFILES statement. 

In our example, we used OPEN to OUTPUT data to RAM. We can also use it 
to INPUT or APPEND data to the following devices: 

RAM T andy 200 memory 

CAS Cassette tape 

COM RS-232C port 

LCD Tandy 200 Liquid Crystal Display 

LPT Printer 

MDM Tandy 200 internal modem 
An example of how OPEN might be used in a program is: 

10 OPEN "RAM : TEST 1 ♦ DO” FOR APPEND AS 1 
20 OPEN "CAS: TEST2" FOR INPUT AS 2 
30 OPEN "COM : 58N1DNI " FOR INPUT AS 3 
40 OPEN "MDM:7I 1DIN" FOR OUTPUT AS 4 
50 OPEN "LPT:" FOR OUTPUT AS 5 

Line 10 OPENs a RAM file named TEST1 .DO. DATA sent from the 
BASIC program will be APPENDed to any information currently 
contained within TEST1. Output is directed through file buffer #1. 

Line 20 reads DATA from a cassette file named TEST2, using buffer 

# 2 . 

Line 30 reads DATA from the RS-232C port with the configuration 
of 1200 baud, 8 bit words, No parity, 1 stop bit and line status 
disabled. Normal control codes and Initiate line feeds. Input is through 
buffer #3. 

Line 40 outputs DATA through the internal modem with the following 
configuration: 7 bit word length, Ignore parity, 1 stop bit and line 
Disabled. Ignore control codes and Normal line feeds. Buffer #4 is 
allocated to handle the DATA. 
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Line 50 OPENs buffer #5 for output to the printer. 


Of course, to get this program to work, we would have had to include this Line: 


5 MAXFILES = 5 

All files OUTput to RAM are automatically assigned the .DO extension on the 
file name. 


Attaching extensions to file names is optional when SAVEing to CASsette. 
INPUT and OUTPUT are the only modes available. 


COM files must have a seven character configuration code instead of a file name 
(Rate, Word Length, Parity, Stop Bits, Line Status, Control Codes, Line Feed). 


MDM files need a six character configuration code in place of a file name (Word 
Length, Parity, Stop Bits, Line Status, Control Codes, Line Feed). 


CLOSE 

An OPEN file must be CLOSEd when we are finished reading and writing data 
to and from it. 

CLOSE X 

CLOSES file X. If more than one file is OPEN, we can CLOSE them all with: 

CLOSE 


or more specifically with: 

CLOSE 1 »3 >5 tB ♦ . ♦ etc. 


It’s generally good programming practice to CLOSE all files soon after reading 
or writing data. There’s always the possiblility of wiping out files that have been 
left OPEN. 
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PRINT # 

The PRINT # statement is used to “write” information to an OPENed file. Type 
in this NEW program: 

10 OPEN "RAM: TEST" FOR OUTPUT AS 1 
20 A$ = "WON! IT WORKED PERFECTLY!" 

30 PRINT #1 , A$ 

40 CLOSE 1 

...and RUN. 

Nothing appears to have happened. Press F8 to return to the Main Menu. Call 
up the new file in the directory called TEST. DO. There it is again, 

WOW! IT WORKED PERFECTLY! 

We have just created a TEXT file from BASIC! Press F8 to RETURN to the 
MENU, and go back into BASIC. 

INPUT # 

Since we now know we can create files of TEXT, we will now learn how to 
READ them from BASIC using a new form of the INPUT statement. 

Press F5 to list the resident program then add these Lines: 


45 

END 





50 

OPEN 

"RAM: 

TEST" 

FOR 

INPUT AS 1 

G0 

INPUT 

#1 t 

A$ 



70 

CLOSE 

1 




80 

PRINT 

"THE 

TEST 

FILE 

CONTAINS: " 

90 

PRINT 

A$ 





...RUN. 


Again, nothings happens. The program hits the END in Line 45 and ENDs. 
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Now type: 

RUN 50 


Aha!!! There it is! The same message we found in the TEST. DO file when 
viewed from the TEXT program. This is exciting stuff! 

APPENDing FILES 

Let’s modify the resident program to make the Computer APPEND information 
to the TEST. DO file. 



Change Lines 10 and 30 to: 

10 OPEN " RAM ; TEST 11 FOR APPEND AS 1 
30 FOR 1=1 TO 3 s PRINT #1*A$ s NEXT I 

...now RUN. 

Ok, what did it write this time? 

Line 10 told the Computer to APPEND the data PRINTed to file #1 
to the end of what ever may already be there. 

Line 30 PRINTS the contents of A$ to file TEST. DO 3 times. The 
original data remains intact, and the 3 new lines are APPENDed to 
the end for a total file length of 4 lines. 

To make the Computer READ the file and PRINT its contents, let’s use the 
routine starting at Line 50. Type: 


RUN 50 
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Hmmm. It only displayed WOW! IT WORKED PERFECTLY! once. The 
Computer was told to INPUT 1 string from file TEST. DO. We have to make it 
loop 4 times to READ all the strings. Change these Lines: 

60 FOR 1=1 TO 4: INPUT #1»A$(I): NEXT I 

30 PRINT : FOR 1=1 TO 4:PRINT A$(I):NEXT I 

...RUN 50. 

Great! It PRINTed all 4 lines (just for fun, go to the Main Menu and look at the 
TEST. DO file again to see if it’s the same). 


End Of Files 

As files continue to grow, it becomes important to know where they end. We 
knew that TEST. DO had 4 lines after we APPENDed the last 3. If we RUN the 
entire program again, 3 more lines will be APPENDed for a total of 7 lines. 
To READ them all would require changing the INPUT loop in Line 70. This is 
getting awfully complicated. 

Delete Line 45. Change and add these Lines: 

60 IF EOF ( 1 ) THEN 70 

65 N = N+ 1 ; INPUT #1»A$(N> : GOTO 60 
30 PRINTsFOR 1 = 1 TO N : PR I NT A$(I):NEXT I 

...and RUN. 

Line 60 tests for the End Of File in buffer 1 . If the End Of File has 
not been reached, the EOF test fails and execution defaults to Line 65. 

Line 65 counts the number of times that the file is INPUT and stores 
the INPUTted string in A$. Control then returns to Line 60 where the 
EOF is again tested. Once the Computer detects the End Of File, the 
tests passes in Line 60 and execution branches to Line 70 where the 
file is CLOSEd. 

Each time the program is RUN, 3 more lines are APPENDed to TEST. DO. 
After the program is RUN a few times a ?BS Error is reported in Line 65. Array 
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variable A$() can only hold 10 elements before we must add a Line to CLEAR 
some more string space and DIM A$() at a higher value. By adding: 

5 CLEAR 500 : DIM A$(50) 

we have allowed enough space for several more RUNs. Isn’t this a lot easier? 
No more guessing or changing looping values. 

inputs o 

The INPUTS statement can be used with files very similar to how we have used 
it to INPUT data from the keyboard. Change Line 65 in the resident program to: 

G5 N = N+ 1 : A$ ( N ) = INPUT* ( 27 , 1 ) : GOTO 00 

...and RUN. 

Line 65 will INPUT 27 characters from file #1 and store them in A$(). It takes 
a little practice to match the character number with the data in the file to pull out 
the desired information. 

LINE INPUT From Files 

It is sometimes necessary to read data from files that contain commas. By using 
the LINE INPUT statement any characters placed in a file can be INPUT. 
Otherwise, the Computer will only READ up to the end of the line or to a 
comma. As we saw with the INPUTS statement, there are many similarities 
between how we use LINE INPUT with files and how we use it to INPUT data 
from the keyboard. 

We can also use PRINT USING when writing out to a file to insure neat format- 
ting. Example: 

100 PRINT #3 i USING "$###*##•> ,M 

In this example, we “PRINT” the data in the file just as it would appear had we 
PRINTed it on a printer. Review a few of the PRINT USING techniques we 
studied in Chapter 34, and use them to PRINT data to our TEST. DO file. 
Remember to check the data in the file by looking at it in the TEXT mode. 
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A Study of Obscurities 


T 

■ andy 200 BASIC has advanced features that are not used by most beginning 
programmers. Their use requires special applications and knowledge which is 
really beyond the scope of this book. In the interest of completeness, however, 
abbreviated descriptions of what they are and how they are used are included in 
this Chapter. 


CALL 

The CALL function has a variety of uses, most of them having little to do with 
BASIC. It allows us to “call” or “gosub” a program written in assembly language 
and “return” back to our BASIC program when it’s finished. The benefit of 
CALL is that the “wordy” type programming requiring PRINT, etc. can be done 
in BASIC, while complex mathematical programming which takes a lot of 
computer time to execute in BASIC can be done in assembler, which executes very 
quickly. To make much sense of CALL, you’ll need assembly language skills — 
not a part of this book. 

A typical CALL statement might look like this: 

CALL 58000 


488 
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It tells the Computer to execute the program beginning at memory address 58000. 

Without getting out too deep in the water, two storage areas (registers) can have 
values inserted with CALL. 


CALL 58000 , 150 ,82500 


tells the Computer to execute the program beginning at address 58000 and place 
the value 150 in register A and 62500 in register HL. The value placed in the 
A register must be between 0 and 255 while the value placed in the HL register 
must be between -32768 and 65535. The use of these two values is optional. 

To see CALL in action, type: 

CALL 21117 

Recognize this mode? That’s right, by CALLing the program starting at address 
21117 we executed the TERM program. Press F8 and return to BASIC. 

Machine and Assembly language programming books are readily available for 
that small percentage of readers who want to pursue the subject. You at least 
have a sufficient introduction to nod your head and smile knowingly when others 
try to impress you with their knowledge of these things. 


SAVEing and LOADing Machine Code 

If you’ve been daring enough to write a machine language program (perhaps 
through POKEing), it can SAVEd to Memory or Cassette. 

SAUEM "name", start address, end address, 
entry poi n t 

This may look like the SAVE command used to SAVE BASIC programs, but 
the letter M specifies that we are saving a Machine language program to memory. 
The machine language program is found in memory between the start and end 
addresses. The file name can be any name we would assign a TEXT file or a 
BASIC program. If an extension isn’t added to the file name, the Computer adds 
.CO. The entry point is optional. That tells the Computer where to start program 
execution. 
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By adding CAS: to the file name, 

SAM EM "CAS: name" » start address » end address t 
entry poi n t 

the Tandy 200 SAVEs the machine program on cassette tape. 

CSAVEM “name” can be used in place of SAVEM “CAS:name.” 

LOADing is just as easy, use: 

LD ADM "name" 
to LOAD from memory, or 

L0 ADM "CAS: name" 
to LOAD from cassette tape. 

C L 0 A D M "name" can be used in place of L Q A D M " C A S : n a it) e " . 

To LOAD and RUN a machine language program from memory, type: 

RUNM "name" 

or R U N M "CASsname " 
to LOAD and RUN for cassette tape. 


INP 

The Tandy 200 has 256 “ports” or channels of communication with the “outside 
world.” They are numbered from 0 to 255. Because this subject itself is worthy 
of an entire book, we will only learn enough to get an elementary “feel for it. 


PRINT I N P ( 255 ) 
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We have set aside 1000 bytes in memory for string storage and protected memory' 
addresses above 61000 for machine language programs. Now type: 

PRINT HIMEM tMAXRAM EKHd: ! 

The HIMEM value is less than MAXRAM because of the space reserved between 
the High point in MEMory for program use and the MAXimum RAM memory 
address available in our Computer. 


Enabling and Disabling Function Keys 

If we press a Function Key during the execution of a BASIC program, the 
computer will usually ignore it. But if we wanted our program to do something 
special when a Function Key has been pressed, there are two things we must know. 

We have learned how to branch to other areas of programs by using ON-GOTO 
and ON-GOSUB. With ON KEY GOSUB, we can branch within a program 
when any of the 8 Soft Keys are pressed. This makes it possible to use Function 
Keys as additional inputs from the keyboard but does not affect their normal 
operation. 

Before the Computer can recognize the Function keys, we must first turn them 
ON with KEY ON. Type and RUN this NEW program to demonstrate both 
features: 

10 KEY ON 

20 PRINT "PRESS A FUNCTION KEY" 

30 ON KEY GOSUB 1 00 #200 ,300 > 400 >500 #600 , 

700 >800 
40 GOTO 30 

100 PRINT "YOU PRESSED Fl"sRETURN 

200 PRINT "YOU PRESSED F2 " : RETURN 

300 PRINT "YOU PRESSED F3 " : RETURN 

400 PRINT "YOU PRESSED F4":RETURN 

500 PRINT "YOU PRESSED F5 ": RETURN 

S00 PRINT "YOU PRESSED FS" ; RETURN 
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700 PRINT "YOU PRESSED F7" : RETURN 
800 PRINT "YOU PRESSED F8" sRETURN 

Line 10 enables all 8 Function keys for inputting. 

Line 30 acts similar to ON - GOSUB in that it branches to a Line number 
corresponding to the function key pressed. If a key is not pressed, execution 
defaults to Line 40 to continue the loop. 

Change Line 10 to: 

10 KEY (8) ON 

...and RUN. 

Function Key 8 is the only key that responds when pressed. By inserting a number 
in parentheses following KEY, we can specify one key for inputting. 

Similarly, we can selectively turn OFF specific function keys. Make these changes 
to our resident program: 

10 KEY ON 

100 PRINT "YOU PRESSED FI" 

110 KEY ( 1 ) OFF : RETURN 

...and RUN. 

After FI is pressed. Line 110 turns OFF function key 1 before RETURNing to 
the ON KEY GOSUB Line. We can turn OFF each of the 8 function keys 
individually or turn them all off at once with: 

KEY OFF 

If we want to temporarily STOP the Computer from recognizing all function 
keys, we can type: 


KEY STOP 
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PRINTs the value found at INput Port 255 . 

OUT 

The opposite of INP is OUT. 

OUT 255 *7 

sends the value 7 to OUTput port 255. Any value from 0 to 255 can be sent to 
any of the 256 ports. 


YARPTR 

While VARPTR (short for VARiable PoinTeR) is found in Tandy 200 BASIC, 
it’s about as far from main-line BASIC as anything we have. 


Take a Deep Breath 

If a variable is numeric, VARPTR tells us the memory location of the first byte 
of the number stored in that variable. 

If it’s a string variable, VARPTR tells us where in memory the index to a given 
variable is located. Read that last line carefully. Don’t want anyone getting lost. 

VARPTR doesn’t have the common decency to point to the contents of a string 
variable in memory. Instead, it points to a three byte “index” to that variable. 
The three bytes contain: 

1 . The length of the string. 

2. The least significant byte (LSB) of the starting location of the string. 

3. The most significant byte (MSB) of the starting location of the 
string. 

To actually find the contents of the string variable, we have to calculate the 
location using bytes 2 and 3 of the index to that variable. Sound compli- 
cated? Well, it is a bit tricky, but an example should clarify matters a bit. 
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Enter this NEW program: 


10 

REM * STRING OAR I ABLE 

LOCATER * 

20 

CLS 


30 

A$ = "123456" 


40 

X = OARPTR ( A$ ) 


50 

PRINT "INDEX TO A$ IS 

AT " ;x 


...and RUN. 

Line 40 uses VARPTR to store the location of the index to A$ in X. Then Line 
50 PRINTS it. 

If the address is displayed as a negative number, this simply means the address 
was larger than 32767. VARPTR handles numbers as integers so it must display 
values starting with 32768 as a negative value continuing in descending order. 

We haven’t found the contents of A$ yet, just the index. Hang in there. Add: 

G0 L = PEEK ( X + 1 ) + 25S*PEEK (X+2) 

70 PRINT "A$ IS HIDING AT LOCATION" !L 

...and RUN. 

So that’s where the little rascal is. Line 60 uses some fancy footwork to convert 
bytes two (X + 1) and three (X + 2) of the index (X) into the actual location (L) 
of A$. Line 70 PRINTs the address. 

How could we prove that we have found the correct location? Sure. PEEK at 
the contents of A$, and compare it with “123456.” Add: 

80 FOR I = L TO L + 5 
90 PRINT CHR$ ( PEEK ( I ) ) 5 
100 NEXT I : PRINT 

...and RUN. 
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Satisfied? 

Now, knowing where a variable is located in memory may not seem too useful 
at first blush, but it has some surprising consequences. Once we have found the 
location of a string variable, we can modify its contents. Try this change: 

100 READ N : POKE I »N 

110 NEXT I : PRINT A$ : PRINT 

120 DATA 228 >232 *238 >237 #239 >231 

...and RUN. 

Surprise! We have just poked graphic codes into an unsuspecting “normal” string 
variable and transformed it into a pictorial masterpiece. 

Type: 

PRINT A$ 

to be sure you aren’t dreaming. Yes, it actually modified the contents of A$ by 
using VARPTR to find the strings then POKEing in new numbers. These com- 
puters can be downright fun once we get to know them. 

Now type: 


LIST 

Did we do that to Line 30? Afraid so. 

Leave with this thought. We packed a “dummy” string with only 6 graphic 
codes. A string variable can hold up to 255 characters, (about two-fifths of the 
display). Just imagine what we could do with a single string packed with up to 
255 cursor control codes, graphic codes, and special character sets! If that doesn’t 
push your imagination to overload, might as well trade the 200 in for a $4.95 
calculator. 

LPOS 

This command works a lot like POS. Where POS found the POSition of the 
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cursor on the display, LPOS finds the POSition of the print head on the Line 
printer . Connect the printer (assuming you have one) and place it ON-LINE , type : 

L PR I NT "PRINTER POSITION IS:" ? LPOS ( 0 ) 

The dummy number within the parentheses can be any value. 


LPRINT USING 

Bet you didn’t know we could use PRINT USING with the printer. Well, we 
can! The action is exactly the same, except output goes to the printer. Look back 
at a few examples in Chapter 34 and try them with your printer. Simply change 
all PRINT USINGS to LPRINT USING. 


SCREEN 

SCREEN allows us to turn the LABEL line on or off. 

SCREEN 0,0 turns LABEL line OFF 

SCREEN 0 » 1 turns LABEL line ON 

MAXRAM and HIMEM 

MAXRAM tells us the highest address number in memory the Computer can 
use. This is a fixed value that will not change as we use up memory space. 
The advantage to having MAXRAM is its use with CLEAR. To CLEAR the 
MAXimum amount of MEMory for program use, we can tell the Computer to: 


CLEAR 0 * MAXRAM 


This tells the Computer reserve 0 bytes of memory for strings and use the entire 
RAM memory space for programs. 

If we wanted to reserve space for strings and reserve some space in the top of 
memory for machine language programs, we would have to CLEAR some room. 
For example, type: 


CLEAR 1000,01000 
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The Computer remembers the Function key pressed, but it won’t branch till 
KEYed ON. 

Learning how to manipulate around the Soft Keys is easy. The challenge is 
coming up with good uses for this function within a program. 

ON TIME$ GOSUB 

We can also make the Computer branch, at a specified time, to a routine in a pro- 
gram. The procedure resembles that of the Function Key routine. We enable ON 
TIMES by typing: 

T I ME$ ON 


or disable it with: 


T I ME$ OFF 


Enter and RUN this typical program to show how it works: 


NEW 



10 

T I ME$ 

ON 


20 

ON T I ME$ = " 1 2 : 00 ; 00 " GOSUB 

50 

30 

IF T = 1 

THEN END 


40 

PRINT© 

0 t T I ME$ : GOTO 30 


50 

PRINT 

"IT'S LUNCH TIME ! " : 

n 

h- 

G 0 

BEEP : 

RETURN 



A space can not be placed between TIMES and the = sign. The fussy Tandy 200 
will give us a syntax er ror report. 

When the internal clock reaches high noon, the program branches from wherever 
it is to the ON TIMES subroutine. It then RETURNS to wherever it was when 
interrupted. 
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ON COM/MDM GOSUB 

As with all other “ON device GOSUB” routines, ON COM GOSUB and ON 
MDM GOSUB must first be turned on with COM ON or MDM ON. And just 
as easily, we can tell the Tandy 200 to ignore them by using “device OFF.” 


If we have an external device connected to the RS-232C port, we can have our 
program branch to a BASIC routine when DATA begins to enter the COM port. 
For example, type: 

10 COM ON 

20 ON COM GOSUB 5000 


5000 REM ROUTINE TO ACT ON THE INTERRUPT 
GOES HERE 


The same can be done for a modem interrupt: 


10 MDM ON 

20 ON MDM GOSUB 2500 


2500 REM MODEM INTERRUPT ROUTINE GOES HERE 

The “ON device GOSUB” statement is usually placed at the beginning of a pro- 
gram. Once the Computer has READ the statement, it will perform the rest of 
the BASIC program with its usual reliability. But, as soon as it encounters DATA 
through the device, it branches from wherever it is within the program to the 
specified Line number in the ON device GOSUB statement. A RETURN at the 
end of the subroutine sends execution back to the Line where the interrupt occurred. 

Each device branching statement can be turned OFF or temporarily STOPped 
with COM OFF, COM STOP, MDM OFF or MDM STOP. 
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IPL 

Tired of seeing the MENU each time the Computer is turned on? If you have a 
special program that you would like to automatically RUN everytime you turn 
on the Computer, then IPL is for you. 

IPL "name ♦BA" 


Each time the Computer comes on, “name. BA” will automatically RUN. 
To “CLEAR out” the IPL function, type: 

IPL " " 


The 2 quote marks are optional. 


The previous IPL program is left intact in memory, although the Computer will 
display the Main Menu when turned ON. 

We can also tell the Computer to automatically RUN BASIC, TEXT, TELCOM, 
ADDRSS , SCHEDL, or MSPLAN files from the MENU by using (for example:) 

IPL 11 TELCOM " 


The Computer will now enter TELCOM when we Power-Up. 


MOTOR 

If we want to advance some extra tape in the cassette recorder between SAVEs, 
we can turn on the recorder’s motor with the Computer by typing: 

MOTOR ON 

and 

MOTOR OFF 

Make sure the PLAY button is pressed before trying MOTOR ON. 
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POWER 

The Tandy 200 is initially set to stay on for 10 minutes without interruption until 
it shuts off by itself. We can regulate its automatic shut off time by using the 
POWER command. 

POWER CONT 


keeps the power on CONTinuously until the power switch is turned off. Not 
recommended when using batteries. 

POWER 150 


allows the Computer to stay on 15 uninterrupted minutes before shut down. A 
little math tells us that each number is worth 6 seconds. Therefore, the default 
time of 10 minutes can be reset by typing: 


POWER 100 (100 * 6 sec = 600 sec or 10 min.) 

The POWER on value can range from 10 to 255. 
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Flowcharting 


M 

§ y Bost of the programs we wrote in this book were simple; but, they met fairly 
simple needs. Suppose we want to write a program to play chess or bridge, 
evaluate complicated investment alternatives, keep records for a bowling league 
or a small business, or do stress calculations for a new building? How would we 
go about writing such a complex program? 

Answer: We break down the big program into a group of individual programs. 
This is called modular programming and the individual programs are called mod- 
ules. But how are the modules related - and how do we write them, anyway? 


Module is just a 75-cent word for “section" or “building block”. 


One way to plan a program is to make a picture displaying its logic. Remember, 
a picture is worth a thousand words (or is it the other way around?). The picture 
that programmers use is called a flowchart . Flowcharts are so widely used that 
programmers have devised standard symbols. There are many specialized sym- 
bols in use, but we will only examine the most common ones. 
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TERMINAL BLOCK 
(means Begin or End) 



PROCESSING BLOCK 
(encloses something the 
Computer does without 
making any decisions) 


DECISION DIAMOND 
(branches off in 
different directions 
depending on the 
decision it makes) 



Each decision point asks a question such as “Is A larger than B?” or ” Have all 
the cards been dealt?” The different branches are marked by yes or no. 

Another useful symbol is: 

CONTINUATION 
(contains number 
which corresponds 
to a number on 
another page if 
the flowchart is too 
large for a single 
sheet) 
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CONNECTOR ARROWS 
(indicate the direction 
in which program 
execution proceeds) 


Flowcharts are most helpful in designing programs when they are kept simple. 
A cluttered flowchart is hard to read and usually isn’t much more helpful than 
an ordinary written program LISTing. A good flowchart is also helpful for 
“documentation” to give us (or others) a picture of how the program works — for 
later on, when we’ve forgotten. 

There are no hard-and-fast rules about what goes into a flowchart and what 
doesn’t. A flowchart is supposed to help, not be more work than it’s worth. 
It helps us plan the logic of the program. When it stops helping and makes us 
feel like we re back in arts and crafts designing mosaics, then we’ve gone as far 
as the flowchart will take us, or more typically, it’s already passed its point of 
usefulness. 

Let s look at some examples. Suppose we want to grade a 5-question test by 
comparing each of the students’ answers with the correct answer. We will put 
the correct answers in a DATA statement in the program, enter a student’s answers 
through the keyboard, compare (grade) them, then PRINT the % of correct 
answers. This procedure will be repeated until all the students’ papers are graded. 

The flowchart might look like this: 
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This flowchart has three decision diamonds. In the first, the Computer determines 
if an answer is correct. In the second, the Computer determines if all the questions 
in a single student’s paper have been graded. The third one terminates execution 
when all the tests have been graded. 


EXERCISE 48-1 : Using the flowchart as a guide, write a program that 
grades a test having five question. 


For more complicated problems, we may want to subdivide the flowchart into 
larger modules. A master flowchart will then show the relationship between the 
flowcharts of individual programs. 

For example, let’s say we want to write a program that calculates the return on 
various investments. The options might be: 

1 - CERTIFICATE OF DEPOSIT 

2 - BANK SAVINGS ACCOUNT 

3 - CREDIT UNION 

4 - MONEY MARKET FUND 

The main (or Control) program will select one of these 4 options using an INPUT 
question, execute the correct subprogram and PRINT the answer. Its flowchart 
might be as shown on the next page. 

We can now flowchart each of the individual programs in the blocks separately. 
The Certificate of Deposit program would, for example, have to contain the rate 
of return, size of deposit and number of years in which the certificate matures. 


The order in which that program INPUTs data and performs the 
would be specified in its own flowchart. 

calculations 

EXERCISE 48-2: Write the master program as flowcharted, with a 
branch to a program to calculate the return on a Bank Savings Account 
paying simple interest. 



EXERCISE 48-3: Choose a program from an early Chapter and 
your own flowchart. 

design 
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Debugging Programs 


Q 

^ %uick — The Raid! 

Throughout this book the Computer has given us plenty of nasty messages. 
We knew something was wrong, but it wasn’t always obvious exactly where, or 
why. 

How do we find the problem? The answer is simple — be very systematic. 
Even experienced programmers make lots of silly mistakes... but the experience 
can teach how to locate mistakes quickly. 


Hardware, Cockpit or Software? 

The first step in the “debugging” process is to isolate the problem as being either: 

1. A hardware problem, 

2. An operator problem, or 

3. A software problem. 
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Is It Farther To Ft. Worth or By Bus? 

Starting with the least likely possibility — is the Computer itself working impro- 
perly? Chances are very high that the Computer is working perfectly. There are 
several fast ways to find out. 

Type: 

PRINT FRE ( 0 ) 


The answer should be slightly less than the number of free bytes shown in the Main 
Menu. If the answer is considerably more or less than the Main Menu, there 
may be trouble. 


Possible Solution 

In either of the above cases, turn the Computer off. Let it sit for a full minute 
before turning it on again. After turning it back on, enter BASIC and type 
NEW. Try the PRINT FRE(0) test again. If the results are the same, it’s time 
to try a complete restart. (Or, as they say in the big time, “Take it all the way 
down.”) This step will erase any files you placed in memory, but at this point 
they’re probably shot anyway. You could try to SAVE them to cassette if it 
makes you feel any better. 


Press PAUSE while pressing the RESET button on the back of the Com- 
puter. Or, you can press Wl;» PAUSE while turning the Computer ON. 


Turn the Computer back ON, enter BASIC and try the PRINT FRE(0) test again. 
If the results are the same, there is probably a chip failure that will require 
professional troubleshooting and replacement. 


Liquid Crystal Display Problems? 

The Display may need to be adjusted for the best contrast at the angle it is 
viewed. If adjusting the DISP control on the right side fails to give the desired 
display, there may be a hardware problem. 


Idiot Here — What’s Your Excuse? 

Of course, you don’t make silly mistakes! 
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Now that’s settled, 

1 . Is everything plugged in? Correctly? Firmly? 

2. Are the Computer and recorder batteries fresh (if you’re using 
batteries)? 

3. Is the recorder volume level properly set? 

4. Is the recorder tone switch on “high” (if yours has one)? 

5. Are you using “legal” commands? 

IF so... 

Go walk the dog, then check it all over again. 

If... Then 

If the trouble was not found in the cockpit or with the hardware, there is probably 
something wrong with your program. Dump out the troublesome program. 
Load in one that is known to work and RUN it as a final hardware and operator 
check. 

Common Errors 

Let’s look at some of the common sources of “computer-detected errors.” 

1. Assume the error is in a PRINT or INPUT statement. Did you: 
a. Forget one of the needed pair of quotation marks? 

EXAMPLE: 

10 PRINT "ANSWER IS, X : GOTO 5 

ERROR: No ending quotation mark after I S . 


Yes, we know it’s OK if the missing quote is the last character in the Line. 
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b. Use an illegal variable name? 

EXAMPLE: 

10 INPUT GG 

ERROR: Variable names must begin with a letter. 

c. Forget a semicolon or comma separating variables or text, or 
bury the semicolon or comma inside quotation marks? 

EXAMPLE: 

10 PRINT "THE VALUE IS "V X 

ERROR: A semicolon is missing between V and X (so the vari- 
ables are not properly separated). 

d. Forget the Line Number, accidentally mix a letter in with the 
number, or use a Line number larger than 65529? 

EXAMPLE: 

72B3 PRINT "BAD LINE NUMBER ♦ " 

I- ERROR: 

e. Accidentally have a double quotation mark in your text? 
EXAMPLE: 

10 PRINT "HE SAID "HELLO THERE*"" 

f. Type a Line more than 255 characters long? 

g. Misspell PRINT or INPUT (It happens!)? 



PHYSICIAN - MEAL. 
THYSELF / " 
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h. Accidentally type a stray character in the Line, especially an 
extra comma or semicolon? 

2. If the error is in a READ statement, almost all the previous pos- 
sibilities apply, plus: 

a. Is there really a DATA statement for the Computer to read? 
Remember, it will only READ a piece of DATA once unless 
it is RESTOREd. 

EXAMPLE: 

10 READ X >Y tZ 
20 DATA 2 >5 

ERROR: There are only two numbers for the Computer to READ. 

If you mean for Z to be zero, you must say so. 

20 DATA 2,5,0 

3. If the trouble area is a FOR-NEXT loop, most of the previous 
possibilities also apply, plus: 

a. Do you have a NEXT statement to match the FOR? 

EXAMPLE: 

10 FOR A = 1 TO N 

ERROR: Where’s the NEXT A? 

Some of these FOR-NEXT loop errors won’t cause actual error 
messages; instead the program may wind up in endless loops, 
requiring the use of the BREAK key. 
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b. Do you have all the requirements for a loop -- a starting point, 
an ending point, a variable name, and a STEP size, if it’s not 1 ? 

EXAMPLE: 

10 A = 1 TO N 

ERROR: Must have a FOR and a NEXT. 

c. Did you accidentally nest two loops using the same variable 
in both loops? 

EXAMPLE: 


10 

FOR X 

= 1 TO 5 

20 

FOR 

X= 1 TO 3 

30 

PRI 

NT X 

a® 

NEXT 

v 

50 

NEXT 

v 


ERROR: The nested loops must have different variables. 

d. Does a variable in a loop have the same letter as the loop 
counter? 

EXAMPLE: 

10 A = 22 

20 FOR R = 1 TO 5 
30 R= 1 8 

a® Y = R * A 

50 PRINT 
G0 NEXT R 


\/ 

I 
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ERROR: The value of R was changed by another R inside the 
loop, and NEXT R was overrun, since 18 is larger than 5. 

e. Are the loops nested incorrectly with one not completely 
inside the other? 

EXAMPLE: 

10 FOR X = 1 TO G 
20 FOR Y= 1 TO 8 
30 PSET (X»Y) 

40 NEXT X 
50 NEXT Y 


ERROR: NEXT Y must come before NEXT X. 

4. If the goofed-up statement is an IF-THEN or GOTO: 

a. Does the Line number specified by the THEN or GOTO really 
exist? Be especially careful of this error when eliminating a 
Line in the process of “improving” or “cleaning up” a program. 

5. If we get an ?OS Error (Out of String Space) and are using strings, 
extra room (up to hundreds of bytes) has to be CLEARed for string 
storage. 

6. The ERROR comes back as ?BS (Bad Subscript). 

a. Did we exceed the limits of an array? 

7. Did we tell the Computer to divide by zero? (The Computer isn’t 
about to let us get away with that one!) 

To find out whether we did any of these things, PRINT (in immediate mode) the 
values for all the variables used in the offending Line. If we still don’t see the 
error, try carrying out the operations indicated on the Line. For example, the 
error may occur during a multiplication of two very large numbers. 
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These certainly aren’t all the possible errors one can make, but at least they give 
us some idea where to look first. Since we can’t completely avoid silly errors, 
it’s necessary to be able to recover from them as quickly as possible. 

By the way... a one-semester course in beginning typing can do wonders for 
programming speed and typing accuracy. 


From the Ridiculous to the Sublime: 

All the Computer can tell us is that we have (or have not) followed all of its 
rules. Assuming we have, the Computer will not protest — even if we’re asking 
it to do something that’s quite silly and not at all what we intended. It will 
dutifully put out garbage all day long if we feed it garbage — even though we 
follow its rules. Remember GIGO? 


GIGO stands for Garbage In, Garbage Out. 


If the program has no obvious errors, what might the matter be? 

Typical “unreported” errors are: 

1 . Accidentally reinitializing a variable — particularly easy when using 
loops. 

EXAMPLE: 


10 

FOR N=1 

TO 3 

20 

READ 

A 

30 

PRINT 

A 

40 

RESTO 

RE 

50 

NEXT N 


G0 

DATA 1 » 

2 *3 


2. Reversing conditions, (i.e. using “ = ” when we mean “<>,” or 
“greater than” when we mean “less than”). 

3. Accidentally including “equals,” as in “less than or equals,” when 
we really mean only “less than.” 


Debuggins Programs 519 


4. Confusing similarly-named variables, particularly the variable A, 
the string A$, and the array A(X). They are not at all related. 

5. Forgetting the order of program execution — from left to right on 
each Line, but multiplications and divisions always having priority 
before additions and subtractions. And intrinsic functions (INT, 

RND, ABS, etc.) having priority over everything else. 

6. Counting incorrectly in loops. FOR 1=0 TO 7 causes the loop 
to be executed eight, not seven, times. 

7. Using the same variable accidentally in two different places. This 
is okay if we don’t need the old variable any more, but disastrous 
if we do. Be especially careful when combining programs or using 
the special subroutines. 

But how do we spot these errors if the Computer doesn’t point them out? Use 
common sense, and let the Tandy 200 help you. The rules to follow are: 

1. Isolate the error. Insert temporary “flags.” Add STOP, END and 
extra PRINT statements until we can track the error down to 1 
or 2 Lines. 

EXAMPLES OF USEFUL FLAGS: 

299 PRINT t "LINE #999" 

399 IF X < 0 THEN PRINT "X<0 in #399": STOP 

Line 299 will help us check whether the Line immediately 
following Line 299 is executed. This helps us follow program 
flow. Line 399 might be used to locate the point where X goes 
out of range. 

2. Make the “tests” as simple as possible. Don’t add “enhancements” 
until after you’ve found the problem. 

3. Check simple cases by hand to test the logic, but let the Computer 
do the hard work. Don’t try to wade through complex calculations 
with pencil and paper. We’ll introduce more new mistakes than 
we’ll find. Use the calculator mode, or a separate hand calculator 
for that work. 
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4. Remember that we can force the Computer to start a program at 
any Line number we choose. Just type: 

GOTO ### 

(where ### represents the desired Line number). This is a useful 
tool for working back through a program. Give the variables 
acceptable values using calculator-mode statements, then GOTO 
some point midway through the program flow using a GOTO state- 
ment. If the answers are what we expect, then the error is before the 
“test point”. Otherwise, the error is after the test point. 

5. Remember that it’s not necessary to LIST the entire program just 
to look at the one section. Just type: 

LIST ###-### 

6. Practice “defensive programming.” Just because a program “works 
okay,” don’t assume it’s dependable. Programs that accept INPUT 
data and process it can be especially deceptive. Make a point of 
checking a new program at its critical edges. 

EXAMPLES: A square root program should be checked for INPUTs 
less than or equal to 0. Math functions should be checked at points 
where the function is undefined, such as TAN(90°). 


Beware of Creeping Elegance 

Programs grow and become more elegant with the ego reinforcement of the pro- 
grammer. This “creeping elegance” increases the chance of silly errors. It’s fun 
to let our mind wander and add on some program here and some more there, but 
it’s easy to lose sight of the program’s purpose. It is at times like this when the 
flowchart is ignored, and the trouble begins. Nuff said. 
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Learned in Chapter 49 
Miscellaneous 


Defensive programming 
Computer-detected errors 
Flags 

Hardware check-out procedures 
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Chasing the ERRORS 


1 ANDY 200 BASIC contains 31 different ERROR messages to help us 
troubleshoot program or operator problems. There are so many we need a separate 
Chapter plus an Appendix just to understand what they mean. 

Let’s quietly tiptoe into the hall of ERRORs by typing this little test program: 


10 

CLS 


20 

REM * 

TESTING ERROR CODES * 

30 

INPUT 

"CHECK WHICH ERROR CODE " 5 N 

40 

ERROR 

N 


RUN the program a number of times (entering numbers between 1 and 255), 
forcing the Computer to PRINT out the message for various types of ERRORs 

Don’t waste time trying to understand them now. You can study them in detail 
in Appendix E. 

The only new BASIC word above is in Line 40. ERROR has little real use in 

life except as above, PRINTing the error message abbreviation from its code 
number. 
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Error Report Codes 


Code 

Message 

Meaning 

1 

NF 

NEXT without FOR. 

2 

SN 

Syntax Error. 

3 

RG 

RETURN without GOSUB. 

4 

OD 

Out of Data. 

5 

FC 

Illegal Function Call. 

6 

OV 

Overflow. 

7 

OM 

Out of Memory. 


8 

UL 

Undefined Line. 

9 

BS 

Bad Subscript. 

10 

DD 

Double Dimensioned Array. 

11 

/0 

Division by Zero. 

12 

ID 

Illegal Direct. 

13 

TM 

Type Mismatch. 

14 

OS 

Out of String Space. 


15 

LS 

String Too Long. 


16 


String Formula Too Complex. 


17 


Can’t Continue. 


18 

IO 

Device Input Output Error. 


19 

NR 

No RESUME. 


20 

RW 

RESUME Without Error. 


21 

UE 

Undefined Error. 



MO 

Missing Operand. 



UE 

Undefined Error. 


50 

IE 

Internal Error. 


51 

BN 

Bad File Number. 


52 

FF 

File Not Found. 



53 


AO 


Already Open. 


54 EF Input Past End of File. 

55 NM Bad File Name. 
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Code 

Messase 

Meaning 

56 

DS 

Direct Statement in File. 

57 

FL 

Too Many Files. 

58 

CF 

File Not Open. 

59-255 

UE 

Undefined Error. 


ERROR Trapping 

The ON ERROR GOTO statement is of more value. It is used when we think 
we’re on the trail of a specific type of ERROR but are not sure. 

Suppose we suspect that someplace in the program there is an accidental division 
by zero, and it’s goofing up the results. Type in this NEW test program: 


10 

ON ERROR GOTO 70 




20 

PRINT 




30 

INPUT "FIND THE SQUARE ROOT 

OF" 

5N 

40 

A = SQR(N) 




50 

PRINT "SQUARE ROOT 

of" ;n 5 " = " 

5 A 


G0 

GOTO 30 




70 

BEEP 




80 

PRINT " SQR ROOT OF 

NEGATIVE 

IS 

ILLEGAL ! " 

and RUN. 





Try positive values and 0, then try a negative value. 

ON ERROR GOTO is acting much as our old friend ON X GOTO did, so there 
are no big surprises here. 

Change Line 10 to a REM line, and try assorted values ending with a negative 
number. Again, no big surprise. An ERROR message was delivered, pinpointing 
both the nature and location of the ERROR, and execution was terminated with 
a READY. 



Chasing the ERRORS 525 


Change Line 10 back to: 

10 ON ERROR GOTO 70 


and add: 

90 RESUME 20 

...and RUN with various values including negative. 

Notice that even though the Computer was forced to operate with an ERROR 
(negative square root), execution did not terminate. The ERROR message was 
delivered, and the Computer kept on going, thanks to RESUME. This is the 
essence of good ERROR trapping - identifying the ERROR without “crashing” 
the program. There may be several interrelated ERRORS that can be found easily 
only by continuing the RUN. 

Change Line 90 to: 

90 RESUME NEXT 


...and RUN. 

Although the results are similar to those with RESUME 20, there is a subtle 
difference. 

RESUME NEXT causes execution to resume at the NEXT Line immediately 
following the Line which made the ERROR. Thus Line 50 is PRINTed, even 
though (in this case) it gives a wrong answer. RESUME 20 directed execution 
to a very specific Line. With a little head-scratching, you can quickly see how 
both features can be used in difficult debugging situations. 

Next, change Line 90 to: 

90 RESUME 


...and RUN. 
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As we can see and hear, RESUME by itself (or RESUME 0) sends execution 
back to the Line in which the ERROR is being made. The Computer keeps trying 
to take the square root of the same negative number. 


ERL 

Change Line 90 back to: 

90 RESUME 20 

and add Line 85: 

85 PRINT "ERROR IS IN LINE #"!ERL 

...and RUN. 

ERL is a reserved” word that PRINTs the Line number in which the ERROR 
occurs. For my money, this little jewel in combination with ON ERROR GOTO 
to snag em, and RESUME NEXT (or RESUME Line number) to keep the 
program from crashing, makes this whole hassle worthwhile. 


ERR 

A final esoteric touch may be obtained by adding the ERR (not ERL) statement. 
ERR produces the code number of the last error that the Computer encountered. 

Add Line 87: 

87 PRINT "AND ERROR CODE IS" HERR 

...and RUN. 

Which brings us back to Do, a deer, a female deer ... (it must be time to STOP 
this book - getting too silly!) Notice that program execution STOPs after the 
ERROR statement. 
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More Variations on the Theme 

A very useful application of the ERROR traps allows the program to automatically 
LIST itself if there is an ERROR. It requires the addition of two temporary 
program Lines using all three ERROR statements. 

From Appendix E (which covers the ERROR messages) comes the example of 
what happens when there is an ERROR in the FOR-NEXT loop. Type in: 

NEW 

10 FOR A = 1 TO 5 

20 PRINT "THERE IS NO ' NEXT A'" 

30 NEXT Z 

...and RUN. 

In this simple program the Computer responds with: 

?NF Error in 30 


There is a FOR NEXT Error in Line 30. Add the following Lines to approximate 
the same result, plus cause an automatic program LISTing: 

5 ON ERROR GOTO 100 to “set” the error trap, 

3d END to END execution if all is well, 

100 PRINT ERL, ERR : LIST 


Line 100 PRINTS the Line # with the ERROR, the ERROR code (found in 
Appendix E) and LISTs the program (or LIST##-##). 

Try this “trapping” and “reporting” routine. If all is well in the program, nothing 
will be different. If there is an ERROR, it will be trapped and reported on the 
display. 
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EXERCISE 50-1: Enter the followins NEW program: 

20 CLS 

30 FOR N = 1 TO UAL(RIGHT$(TIME$ *2) ) 
a 0 A = RND ( 1 ) : NEXT N 
50 FOR 1=1 TO 10 

60 X = I NT ( RND ( 1 ) *21 ) : F = X-10/X 

70 PRINT I : " X= " i X t " F ( X ) = " 5 F 

80 IF F < 0 THEN PUNT ELSE PRINT 

90 IF X = 20 THEN READ A 

100 NEXT I 

110 INPUT "PRESS ENTER TO CONTINUE" ?Z 
120 GOTO 20 

Write an error trappins routine that recovers from both ERRORS and 
PRINTS: 

OUT OF DATA ERROR IN LINE ## 
or 

SYNTAX ERROR IN LINE ## 

as appropriate. 

HINT -- Syntax ERROR is code 2, and Out of Data is code 4. 

Learned in Ch apter 50 

Statements Functions Miscellaneous 


ERROR 

ON ERROR GOTO 
RESUME 


ERL 

ERR 


Error Codes 



COK) G PAT U LATlON£, 

PAL , WE - DIP IT // 

MIND IF I PIP OFF 

A Few Ncrre^ of 
POMP 'hid' c lf£U M^TANCDf 
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Appendix A 


ASCII Chart 


Decimal 

Hex 

Function 

0 

00 


1 

01 


2 

02 


3 

03 


4 

04 


5 

05 


6 

06 


7 

07 

Beep 


Backspace and erase current 
character 


9 

09 

TAB(8) spaces 

10 

0A 

Move cursor down one line 

11 

OB 

Move cursor to upper left 



comer 

12 

oc 

Clear the screen and move 
cursor to upper left corner 

13 

OD 

Move cursor to start of same | 



line without erasins 
(RETURN) 

14 

OE 


15 

OF 


16 

10 


17 

11 


18 

12 


19 

13 


20 

14 


21 

15 


22 

16 


23 

17 

1 

24 

18 
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Decimal 


127 


128 


Character 


129 

81 

130 

82 



131 

83 


132 

84 


133 

85 

f 

134 

86 

ll 


142 

8E J 

143 

8F " 



144 

90 

ft 


145 

91 

A 


146 

92 

* 


147 

93 

t 


148 

94 

& 

( 

149 

95 

•mi 

a" 

1 




155 

9B 

,, [ 

156 

9C 

R 

i. .i 
.i. 

157 

9D 

•:> | 

158 

9E 

n 

159 

9F 

y 

160 

AO 

•• 
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Decimal 


226 


227 


228 


Character 


(upper right) 


(lower left) 


(lower) 


IGRPH (a 


229 E5 1 

m 

HI 

230 E6 g 

§ 

231 E7 (upper) 

s 


(right) 


|GRPH S| 
iGRPhTpl 
iGRPh^l 
Igr'phxI 


IGRPH 01 


IGRPH 


IGRPH M l 
|GRP^ 

iGRPm 


|GRPH L| 

|GRPhHl 

|GRPH^G| 

IgrphTTI 

IgRP^TI 
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TEXT Control Codes 


Control Code 




BCTRL w| 


Operation Performed 

Moves the Cursor from current position to the beginning 
of the first word to the left. 


Moves the Cursor from current position to the bottom of 
the Display. 


Cancels a SELECT, SAVE, LOAD, FIND, or PRINT function. 


Moves the Cursor one character to the right. 


Moves the Cursor up one line from current line. 


Moves the Cursor to the beginning of the next word to 
the right. 


Saves a file ora program. 


Deletes previous character. 


TAB. 


Same as SELECT Function Key. 
Same as Key. 


Same as FIND Function Key. 


Same as COPY Function Key. 


Insert special printer codes. 



Moves the Cursor to the left-most position of the cur- 
rent line. 


Moves the Cursor to the right-most position of the cur- 
rent line. 


Moves the Cursor one character to the left. 


Moves the Cursor to the top of the Display in the cur- 
rent column. 


Same as CUT Function Key. 


Same as LOAD Function Key. 


Moves the Cursor to the beginning of the current file. 
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Control Code 


CTRL X[ 
[CTRL Y] 
ICTRL Z| 


Operation Performed 

Moves the Cursor down one line from its current position. 
Prints the entire file. 

Moves the Cursor to the end of the current fi le. 


CTRL P 


allows control codes to be sent to the printer using the SAUE 

TO : LPT : format. This is only available in TEXT mode. When the text is printing 
usins PRINT or EiSliai PRINT, the control code is printed as an actual 
character and is not used as a control code. 


For example, by placins 
text to the printer with: 


CTRL PICTRL O 


in the text, and then sendins the 


Saue to : L PT : 


ENTER 


the Computer sends Control code 1 5 to the printer. On many of the Tandy/Radio 
Shack printers, this turns on the underlining mode. Refer to your own printer 
manual to determine the applicable control codes. 
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Reserved Words 


@ 

EXP 

MOD 

ABS 

FILES 

MOTOR 

AND 

FIX 

NAME 

ASC 

FOR 

NEW 

ATN 

FORMAT 

NEXT 

AUTO 

FRE 

NOT 

BEEP 

GOSUB 

OFF 

CALL 

GOTO 

ON 

CDBL 

HIMEM 

OPEN 

CHR$ 

IF 

OR 

CINT 

IMP 

OUT 

CLEAR 

INKEYS 

PEEK 

CLOAD 

INP 

POKE 

CLOCK 

INPUT 

POS 

CLOSE 

INSTR 

POWER 

CLS 

INT 

PRESET 

COM 

IPL 

PRINT 

CONT 

KEY 

PSET 

COS 

KILL 

READ 

CSAVE 

LCOPY 

REM 

CSNG 

LEFTS 

RESTORE 

CSRLIN 

LEN 

RESUME 

DATA 

LET 

RETURN 

DATES 

LFILES 

RIGHTS 

DAYS 

LINE 

RND 

DEF 

LIST 

RUN 

DELETE 

LLIST 

SAVE 

DIM 

LOAD 

SCREEN 

DSKIS 

LOC 

SGN 

DSKOS 

LOF 

SIN 

EDIT 

LOG 

SOUND 

ELSE 

LPOS 

SPACES 

END 

LPRINT 

SQR 

EOF 

MAX 

STEP 

EQV 

MDM 

STOP 

ERL 

MENU 

STR$ 

ERR 

MERGE 

STRINGS 

ERROR 

MID$ 

TAB 
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TAN 

THEN 

TIMES 

TO 


USING 

VAL 

VARPTR 


VERIFY 

WIDTH 

XOR 
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Communication Parameters 


Tandy 200 Telecommunications Parameters 1 


You Type: 

For: 

Baud Rate 

M 

Internal Modem (300 baud only) 


1 

75 baud (RS-232C port only) 


2 

110 baud 


3 

300 baud 


4 

600 baud 


5 

1200 baud 


6 

2400 baud 


7 

4800 baud 


8 

9600 baud 


9 

1 9200 baud 

Word Length 

6 

6 bits 


7 

7 bits 


8 

8 bits 

Parity 

1 

Ignore parity 


O 

Odd parity 


E 

Even parity 


N 

No parity 

Stop Bit 

1 

1 stop bit 


2 

2 stop bit 

Line Status 

E* 

Enable XON/XOFF (start/stop) 


D* 

Disable XON/XOFF (start/stop) 

Control Codes 

N 

1 

Normal setting to accept all 
control codes 

Ignore ASCII control codes 0-31 
except carriage return and line feed 

Line Feed 

N 

1 

Normal linefeed 
Ignore external linefeed 

Originate/Answer 

O 

Originate mode 


A 

Answer mode 
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You Type: 

For: 

Pulse Rate 

10 

lOpps 


20 

20pps 


T 

Tone, dialing 






Appendix E 




Error Report Codes 


Code 

Message 

Meaning 

1 

NF 

NEXT without FOR. 

2 

SN 

Syntax Error. 

3 

RG 

RETURN without GOSUB. 

4 

OD 

Out of Data. 

5 

FC 

Illegal Function Call. 

6 

OV 

Overflow. 

7 

OM 

Out of Memory. 

8 

UL 

Undefined Line. 

9 

BS 

Bad Subscript. 


10 

DD 

Double Dimensioned Array. 

11 

/0 

Division by Zero. 

12 

ID 

Illegal Direct. 

13 

TM 

Type Mismatch. 

14 

OS 

Out of String Space. 

15 

LS 

String Too Long. 

16 

ST 

String Formula Too Complex. 

17 

CN 

Can’t Continue. 

18 

IO 

Device Input Output Error. 

19 

NR 

No RESUME. 

20 

RW 

RESUME Without Error. 

21 

UE 

Undefined Error. 

22 

MO 

Missing Operand. 

23-49 

UE 

Undefined Error. 

50 

IE 

Internal Error. 

51 

BN 

Bad File Number. 

52 

FF 

File Not Found. 
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Code 

Message 

Meaning 

53 

AO 

Already Open. 

54 

EF 

Input Past End of File. 

55 

NM 

Bad File Name. 

56 

DS 

Direct Statement in File. 

57 

FL 

Too Many Files. 

58 

CF 

File Not Open. 

59-255 

UE 

Undefined Error. 
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Hex-to-Decimal 
Conversion Chart 


Most Sisnificant Bytes 


IV 


Least Significant Bytes 


I 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 
A 
B 
C 
D 
E 
F 


0 

4096 

8192 

12288 

16384 

20480 

24576 

28672 

32768 

36864 

40960 

45056 

49152 

53248 

57344 

61440 


0 

256 

512 

768 

1024 

1280 

1536 

1792 

2048 

2304 

2560 

2816 

3072 

3328 

3584 

3840 


0 

16 

32 

48 

64 

80 

96 

112 

128 

144 

160 

176 

192 

208 

224 

240 


0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 


Hex-to-Decimal Conversion Chart 
Decimal Value = IV + 111 + 11 + 1 
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Answers to Exercises 


Sample answer for EXERCISE 5-1 : 

50 PRINT D 

Sample run for EXERCISE 5-1 : 

S000 


Note: You may have used a different Line number in your answer but the 
way to set the answer printed on the screen is by usins the PRINT statement. 
If you didn’t set it risht the first time, don’t be discourased. Type in Line 
50 above, and RUN the prosram. Then return to Chapter 5 and continue. 


Sample answer for EXERCISE 5-2: 


10 

REM 

*T I ME 

SOLUTION* 

20 

D = 

G 0 0 0 


30 

R = 

500 


40 

T = 

D / R 


50 

PR I 

NT “IT 

TAKES" 5 T 5 “HOURS 


Note: 


Remember to 


ENTER 


each Line. 


Sample run for EXERCISE 5-2: 

IT TAKES 12 HOURS ♦ 


Note: In order to arrive at the formula in Line 40 it is necessary to transpose 
D = R * T and express in terms of T. 

Sample answer for EXERCISE 5-3: 

10 REM ^CIRCUMFERENCE SOLUTION* 

20 D = 35 

30 C = 3,14 * D 

40 PRINT “CIRCUMFERENCE = " 5 C 5 “ FEET ♦ “ 

Sample run for EXERCISE 5-3: 

CIRCUMFERENCE = 109*9 FEET * 
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Sample answer for EXERCISE 5-4: 

A bare-minimum effort might look like this: (C = checks, D = deposits, B 
= old balance, N = new balance.) 

10 B = 225 

20 C = 17 + 35 + 225 

30 D = 40 + 200 

40N=B-C+D 

50 PRINT "YOUR NEW BALANCE IS $"5N 


Sample run for EXERCISE 5-4: 

YOUR NEW BALANCE IS $ 188 


Sample answer for EXERCISE 6-1 : 

10 REM CAR MILES SOLUTION 
20 N = 100000000 
30 D = 1000000 
40 T = N * D 

50 PRINT "TOTAL MILES DRIVEN I S n 5 T 

Sample run for EXERCISE 6-1 : 

TOTAL MILES DRIVEN IS 1E+14 

Note-. As discussed earlier, this answer is the number 1 followed by 14 
zeroes. 100,000,000,000,000. One hundred Trillion. The Computer will not 
print any numbers over 99,999,999,999,999 without converting them to 
exponential notation. 

Sample answer for EXERCISE 6-2: 

20 N = 1E+8 
30 D = 1E+B 

Sample run for EXERCISE 6-2: 

TOTAL MILES DRIVEN IS 1E+14 

Note: The answer came out exactly the same as before, meaning we not 
only receive answers in SSN but can also use it in our programs. 


Sample answer for EXERCISE 7-1 : 

10 REM ^FAHRENHEIT TO CELSIUS 00NV.* 

20 F = 85 

30 C = (F - 32) * (5/9) 

40 PRINT F 5 " DEG ♦ F AHR ♦ = " 5 C 5 " DEG ♦ CEL + " 
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Sample run for EXERCISE 7-1 : 

65 DEG ♦ FAHR ♦ = 18*333333333333 DEG* CEL. 

Observe carefully how the parentheses were placed. As a seneral rule, 
when in doubt - use parentheses. The worst they can do is slow down 
calculating the answer by a few millionths of a second. 

Sample answer for EXERCISE 7-2: 

30 C = F - 32 * (5/0) 

Sample run for EXERCISE 7-2: 

65 DEG* FAHR* == 47*222222222222 DEG* CEL* 

Note how silently and dutifully the Computer came up with the wrong 
answer. It has done as we directed, and we directed it wrong. 

A common phrase in Computer circles is GIGO (pronounced "gee-goe”). 

It stands for "Garbage In - Garbage Out." We have given the Computer 
garbage, and it gave it back to us by way of a wrong answer. 

Phrased another way, "Never in the history of mankind has there been a 
machine capable of making so many mistakes so rapidly and confidently." 

A Computer is worthless unless it is programmed correctly. 

Sample answer for EXERCISE 7-3: 

30 C = (F - 32) * 5/9 

Sample run for EXERCISE 7-3: 

65 DEG* FAHR, = 18*333333333333 DEG* CEL. 

Sample answer for EXERCISE 7-4: 

Two possible answers: 30 - (9 - 8) - (7 - 6) = 28 

30 - (9 - (8 - (7 - 6))) = 28 

Sample programs: 

10 A = 30 - (9 - (8 - (7 - 6))) 

20 PRINT A 
Or Line 10 might be 

10 A = 30 - (9 - 8) - (7 - 6) 

Try a few on your own. 
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Sample answer for EXERCISE 8-1 : 

10 A = 5 

20 IF A <> 5 THEN 50 
30 PRINT "A EQUALS 5* 11 
40 END 

50 PRINT "A DOES NOT EQUAL 5," 


Sample run for EXERCISE 8-1 : 

A EQUALS 5 ♦ 


Sample answer for EXERCISE 8-2: 


10 

A = G 



20 

IF A < 

:> 5 

THEN 50 

30 

PRINT 

"A 

EQUALS 5*" 

40 

END 



50 

PRINT 

"A 

DOES NOT EQUAL 5* 

S 0 

IF A < 

: 5 

THEN 90 

70 

PRINT 

"A 

IS LARGER THAN 5* 

80 

END 



00 

PRINT 

"A 

IS SMALLER THAN 5 


Sample run for EXERCISE 8-2: 

A DOES NOT EQUAL 5* 
A IS LARGER THAN 5. 


Note: We had to put in another END statement (Line 80) to keep the program 
from running on to Line 90 after printing Line 70. 

Sample answer for EXERCISE 13-1: 

1 CLS 

2 INPUT "HOW MANY SECONDS DELAY DO YOU 
WISH" ?S 

3 P = 300 

4 D = S * P 

5 FOR X = 1 TO D 
S NEXT X 

7 PRINT "DELAY IS OVER. TOOK" 5 S 5 
"SECONDS* " 
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Explanation: 

Line 1 CLearS the screen to get ready for Line 2. 

Line 2 uses INPUT to ask how many seconds you wish to delay. 

Line 3 defined P, the number of passes required for a one-second 
delay. 

Line 4 multiplied the delay for one second times number of seconds 
desired and called that product D. 

Line 5 began the FOR-NEXT loop from 1 to whatever is required. 

Line 6 is the other half of the loop. 

Line 7 reports the delay is over and prints S, the number of seconds. 
Obviously, S is only as accurate as the program itself since it merely 
copies the value of S you entered in Line 2. 


Sample answer for EXERCISE 13-2: 

10 

PRINT 

"*** SALARY RATE CHART ***" 

20 

PRINT 


30 

PRINT 

" YEAR" * " MONTH" 

40 

PRINT 


50 

FOR Y = 

5000 TO 20000 STEP 1000 

G0 

REM ^CONVERT YEARLY INTO MONTHLY* 

70 

M = Y / 1 

*7 

80 

PRINT 

Y »M 

80 

NEXT Y 



Sample run for EXERCISE 13-2: 

*** SALARY RATE 

YEAR 

5000 

G000 

7000 

etc... 


CHART *** 

MONTH 

4 1 S ♦ SGGSBSSSSS7 
500 

583*33333333333 
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Sample answer for EXERCISE 13-3: 

10 R = ♦ 0 1 
20 D = 1 
30 T = ♦ 0 1 
40 CLS 

50 PRINT “DAY" •"DAILY TOTAL" 
G0 PRINT " » " » " R ATE EARNED" 
70 PRINT 

80 PRINT D , R 5" " »T 

90 IF R >= 1000000 THEN END 

100 R = 2 * R 

110 D = D + 1 

120 T = T + R 

130 GOTO 80 

Sample run for EXERCISE 13-3: 


DAY 


DAILY 

TOTAL 


# 


RATE 

EARNED 

1 


♦ 01 

♦ 01 


r> 


♦ 02 

♦ 03 


3 


♦ 04 

♦ 07 


etc... 





Sample answer for EXERCISE 13-4: 



5 CLS 




10 

PRINT " 

LENGTH" » 

"WIDTH 

8 

20 

FOR L=0 

TO 500 

STEP 50 


30 

W = (1000 - 2 

* L)/2 


40 

A = L 

* W 



50 

PRINT 

L t W 3 " 

8 " ; 

A 

80 

NEXT L 




Sample run for EXERCISE 13-4: 



LENGTH 

WIDTH 

AREA 

0 


500 


0 

50 

450 


22500 

100 

400 


40000 


etc... 


AREA" 
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Sample answer for EXERCISE 14-1: 

10 PRINT "THE TOTAL SPENT" 

20 PRINT " BUDGET " t " YEAR ' S THIS" 

30 PRINT "CATEGORY" ? T A B ( 14) ?" BUDGET" 5 
T AB ( 24 ) 5 "MONTH" 


Sample answer for EXERCISE 14-2: 

10 PRINT "*** SALARY RATE CHART ***" 

20 PRINT 

30 PRINT " YEAR" STAB ( 8 > S "MONTH" 5TAB ( 25 ) 5 
"WEEKLY" 

40 PRINT 

50 FOR Y = 5 0 0 0 TO 20000 STEP 1000 
80 REM ^CONVERT YEARLY INCOME INTO 
MONTHLY* 

70 M=Y/12 

80 REM * CONVERT MONTHLY INTO WEEKLY * 
80 W = Y / 5 2 

100 PRINT Y5TAB(7) 5M5TAB<24) ?W 
110 NEXT Y 


Sample run for EXERCISE 14-2: 

*** SALARY RATE CHART *** 

YEAR MONTH WEEKLY 

5000 41S , SSSGGGGS6S7 08, 15 38 48 153848 

8000 500 115,38481538482 

7000 583 , 33333333333 134 ,81538481538 

etc... 


Sample answer for EXERCISE 15-1: 

10 FOR A= 1 TO 2 
20 PRINT "A LOOP" 

30 FOR B=1 TO 2 
40 PRINT » "B LOOP" 
42 FOR C=1 TO 3 


44 


PRINT 


48 NEXT C 


50 NEXT B 


80 NEXT A 


il 


12 


C LOOP" 
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Sample answer for EXERCISE 16-1: 

Addition of the following single Line gives a nice clean printout with all 
values "rounded" to their integer value: 

55 A = I NT ( A ) 


Worth all the effort to learn it, wasn’t it? 

Sample answer for EXERCISE 16-2: 

55 A = I NT ( 1 0* A ) / 1 0 


When 3.14159 was multiplied times 10 it became 31.4159. The INTeger 
value of 31.4159 is 31. 31 divided by 10 is 3.1. Etc... 

Sample answer for EXERCISE 1 7-1 : 


10 

INPUT 

" TYPE 

ANY NUMBER" 5X 

20 

T = SGN(X) 




30 

ON T + 2 

GOTO 

50 > 80 

1 7 0 


45 

END 





50 

PRINT 

"THE 

NUMBER 

IS 

NEGATIVE 

55 

END 





S0 

PRINT 

"THE 

NUMBER 

I s 

ZERO * " 

S5 

END 





70 

PRINT 

"THE 

NUMBER 

IS 

POSITIVE 


Sample answer for EXERCISE 18-1: 

See Appendix H - user programs. 

Sample answer for EXERCISE 18-2: 

10 GOSUB 10000 

10000 S = VAL(RIGHT$(TIME$ > 2 ) 5 
10010 FOR K = 1 TO S 
10020 D = RND ( 1 ) 

10030 NEXT X 
10040 RETURN 

Sample answer for EXERCISE 21-1: 

10 PRINT CHR$(84> 5CHR$(S5) ?CHR$(73) ? 
20 PRINT 0 H R $ ( 6 8 ) S 0 H R $ ( 8 9 ) ? C H R $ ( 3 2 ) ? 
30 PRINT CHR$(50) ?CHR$(48) ;CHR$(48) 
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Sample answer for EXERCISE 22-1 : 

10 CLS 

20 INPUT "FIRST STRING"? A$ 

30 INPUT "SECOND STRING"? B$ 

40 PRINT : PRINT "ALPHABETICAL ORDER;" 
50 IF A $ < B $ THEN PRINT A$ ,B$ : END 
S0 PRINT B$,A$ 


Sample answer for EXERCISE 23-1 : 

10 PRINT "INPUT STRING" 

20 INPUT A$ 

30 IF L E N ( A $ ) >10 THEN 50 
40 END 

50 PRINT "10 CHARACTER LIMIT EXCEEDED*" 

Sample answer for EXERCISE 23-2 

10 CLS 

20 INPUT "ENTER PASSWORD" ?A$ 

30 FOR X= 1 TO 11 
40 READ N 

50 P$ = P$ + CHR$ ( N ) 

S0 NEXT X 

70 IF A$ = P$ THEN 100 

80 PRINT "WRONG PASSWORD - GET LOST" 

30 END 

100 PRINT "CORRECT PASSWORD - ENTER" 

110 DATA 73 ,80 , S3 ,78 ,32 
120 DATA 33,83,83,85,77,83 


Sample answer for EXERCISE 24-1 

10 CLS 

20 INPUT "ENTER YOUR STREET ADDRESS" ?A$ 
30 A = U A L ( A $ ) : PRINT 

40 PRINT "YOUR NEIGHBOR'S STREET NUMBER 
IS"? A+4 


Sample answer for EXERCISE 24-2 

10 CLS 

20 FOR X = 1 0 1 TO 120 
30 A$ = S T R $ ( X ) 

4 0 PRINT A$ + " WT" , 
50 NEXT X 
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Sample run for EXERCISE 24-2 

101 WT 

102WT 

103WT 

104WT 

105WT 

106WT 

107WT 

108WT 

109WT 

1 10WT 

1UWT 

1 12WT 

1 1 3 WT 

1 14WT 

1 15WT 

1 16WT 

1 17WT 

1 1 SWT 

1 1 SWT 

120WT 


Sample answer for EXERCISE 25-1 : 

1 0 C L S 

20 INPUT "ISN'T THIS A SMART COMPUTER" ?A$ 
30 B* = LEFT* ( A$ » 1 ) 

40 IF B$ = "Y" THEN PRINT "AFFIRMATIVE" : 
END 

50 IF B$ = "N" THEN PRINT "NEGATIVE" s END 
S0 PRINT "THIS IS A YES OR NO QUESTION" 

70 GOTO 20 

Sample answer for EXERCISE 25-2: 

10 CLS : MX* = "" 

20 FOR 1=1 TO 3 
30 READ A$ 

40 N$ = MID$(A$ ? 2 * 3 ) 

50 IF N $ > M X $ THEN MX$ = N$ s P$ = A$ 

60 NEXT I 

70 PRINT "THE PART # WITH THE LARGEST" 

80 PRINT "NUMERIC PORTION IS "5P$ 

S0 PRINTS LIST 

100 DATA N i 06WT * A 2 0 S F M t Z 1 5 4 D X 

Sample answer for EXERCISE 25-3: 

Choice C: P- 

Sample answer for EXERCISE 25-4: 

10 CLS 

20 A$ = STR I NG* ( 20 1 42 ) 

30 PRINT TAB(20~LEN(A$)/2) ?A$ 

40 PRINT s LIST 
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Sample answer for EXERCISE 27-1 : 

10 A = 5 
20 B = 12 

30 C = S Q R ( A 2 + B 2 ) 

40 PRINT "THE SQUARE ROOT OF " 5 A 5 " SQUARED " 
50 PRINT " PLUS" 5B 5 "SQUARED IS"?C 
B0 PRINT : LIST 


Sample answer for EXERCISE 27-2: 

10 INPUT "ENTER A NUMBER" »N 
20 PRINT "LOG (EXP ( " 5 N 5 " ) ) ="? 

LOG (EXP(N)) 

30 PRINT "EXP (LOG ("5N5")) ="? 

EXP ( LOG ( N ) ) 

40 PRINT ; GOTO 10 

Sample answer for EXERCISE 29-1 : 

10 INPUT "START HORIZ, BLOCK (0 TO 239)" 5 
20 INPUT "END HOR I Z ♦ BLOCK (0 TO 239 ) " 5 I 
30 INPUT "START VERT ♦ BLOCK (0 TO 127) "5V 
40 INPUT "END VERT ♦ BLOCK (0 TO 127) " 5 W 
50 CLS 

60 FOR X = H TO I 
70 FOR Y = V TO W 
80 PSET(X#Y> 

90 NEXT Y 
100 NEXT X 

Sample answer for EXERCISE 29-2: 

10 INPUT "VERT, POSITION (0 TO 127)" 5V 
20 IF V > 127 THEN 10 
30 CLS 

40 FOR H = 0 TO 638 
60 PRINT CHR$ ( 239 ) » 

80 NEXT H 

90 FOR H = 0 TO 239 

100 PRESET ( H » V ) 

110 NEXT H 
999 GOTO 999 
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Sample answer for EXERCISE 30-1 : 


A. MOVE 

THE DOT UP 


10 

INPUT " H OR I Z ♦ START (0 

TO 

20 

INPUT "VERT ♦ START (0 

TO 

30 

CLS 


40 

PRESET <H,V+1) 


50 

PSET (H,U) 


80 

u = V - 1 


85 

FOR X s 1 TO 20 : NEXT X 


70 

IF y > -1 GOTO 40 


99 

GOTO 99 


B. MOVE 

THE DOT TO THE LEFT 


10 

INPUT "HORIZ. START (1 

TO 

20 

INPUT "VERT ♦ START <0 

TO 

30 

CLS 


40 

PRESET (H+l ,V ) 


50 

PSET ( H , V ) 


80 

H = H - 1 


85 

FOR X = 1 TO 20 : NEXT X 


70 

IF H > -1 GOTO 40 


99 

GOTO 99 



Sample answer for EXERCISE 30-2: 

G0 LINE (95 ,80) - (95 ,100) 

70 LINE -(145,100) : LINE -( 


Sample answer for EXERCISE 31-1: 

Insert the followins Lines: 

95 P$ = "PING ! " 

115 IF V = 90 THEN 170 
125 IF V = 35 THEN 180 
1S c vP$ = " " ; BEEP 

157 ON D + 2 GOTO 170 , ,180 
170 PRINT0421 ,P$ ; s GOTO 90 
180 PR I NT@22 1 ,P$? s GOTO 90 


239) " 5 H 

128 ) " sv 


238) " 5H 
83) " ?v 


145 ,80) 


5 SPACES 


Note that P$ both prints the "PING” and makes it disappear by printing 
blanks in its place. 


Answers to Exercises 561 


Sample answer for EXERCISE 34-1 : 

50 U$ = " # *M* # 4 # # " 

50 U$ = "$####♦## " 

50 U$ = "$$###♦## " 

50 U$ = " $$ #****# ♦ ## " 

50 U$ = "**$##88«## " 

Sample answer for EXERCISE 35-1 : 

10 CLS : PRINT TAB(17> "CREDITS TAX 

TOTAL" 

20 FOR 1=1 TO 3 
30 READ A$ #X #Y #Z 

39 REM 12345G789012345G789012345G76901 

40 U$="\ \ 4 ## 

50 PRINT USING U$?A$#X#Y#Z 
G0 NEXT I 
70 READ A$ #N 

79 REM 12345G 

80 U $ = " \ \ ###,##" 

90 PRINT T AB ( 27 ) 5 : PRINT USING V$SA$#N 
100 DATA ASTRAL COMPUTER # 18*3».7#19.0 
110 DATA BIOFEEDBACK UNIT# l.B#0#i*8 
120 DATA PERSONAL MODULE# 7,2#«3#7*5 
130 DATA "DUE: " # 28*3 
999 GOTO 999 


Sample answer for EXERCISE 37-1 : 

10 DIM A ( 2 1 0 ) : CLS 

20 INPUT "WHICH CAR TO EXAMINE" ? W 
30 FOR L = 1 TO 10 
40 READ A ( L ) 

50 NEXT L 

G0 FOR S=101 TO 110 
70 READ A ( S ) 

80 NEXT S 

82 FOR B = 20 1 TO 210 
84 READ A ( B ) 

8G NEXT B 
90 PRINT 
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100 PRINT "CAR" STAB ( 10) ? "ENG SIZE"? 

105 PRINT TAB ( 24 > 5" COLOR" ? TAB ( 33 ) 5 "STYLE" 
110 PRINT H5TAB( 10) 5 A < W ) ?TAB<24) ? 

120 PRINT A< W+100) 5TAB(33) 5 A ( W + 200) 

500 DATA 300 *200 *500 *300 *200 
510 DATA 300 *400 *400 *300 #500 
520 DATA 3 *1 *4 *3 *2 *4 *3 *2 *1 *3 
530 DATA 20 *20 * 10 *20 *30 *20 *30 * 1 0 >20 >20 

Sample answer for EXERCISE 37-2; 

DELETE Lines 500 through 540, and change Line 30 to: 

30 FOR C=1 TO 52 : A(C) = C : NEXT C 

Sample answer for EXERCISE 38-1 : 

Change Line 60 to-. 

00 IF A$(F) >= A$<S) THEN 100 

An alternate approach is to reverse the order of printing: 

120 FOR D = N TO 1 STEP -1 s PRINT A$(D> : 

NEXT D 

Sample answer for EXERCISE 39-1 : 

10 CLS 

20 FOR E = 1 TO 4 
30 FOR D=1 TO 3 

40 REM ENTRY DATA: NAME * NUMBER * $$$ 

50 READ R$ ( E * D ) 

00 PRINT TAB< ( D- 1 ) * 1 5 ) SR$(E *D ) 5 
70 NEXT D : PRINT 
80 NEXT E : PRINT 

1000 REM * DATA FILE * 

1010 DATA "JONES* C*"* 10439* 100*00 
1020 DATA "ROTH* J * ” * 10023* 87*24 
1030 DATA "BAKER* H * " * 1283G* 398*34 
1040 DATA "HARMON* D * " * 10422* 23*17 
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Sample answer for EXERCISE 39-2: 

Add: 


100 

REM * SORT * 


110 

FOR F = 1 TO 3 


120 

FOR S = F+ 1 TO 4 


130 

IF R$(F >1 ) < = R$(S >1 ) THEN 

190 

140 

FOR J=1 TO 3 


150 

T $ = R$(F>J) 


100 

R$ < F > J ) = R$(S >J) 


170 

R$ ( S > J > = T $ 


180 

NEXT J 


190 

NEXT S 


200 

NEXT F 


210 

PRINT s PRINT "ALPHA SORT" : 

PRINT 

220 

FOR E= 1 TO 4 


230 

FOR D = 1 TO 3 


240 

PRINT TAB < ( D- 1 ) * 1 5 ) ? R$ < E >D ) 

B 

n 

250 

NEXT D s PRINT 


200 

NEXT E ° PRINT 



Sample answer for EXERCISE 39-3: 

Change these Lines: 

130 IF UAL ( R$ ( F > 3 5 5 < = UAL(R$<S>3)) 
THEN 190 

210 PRINT : PRINT "NUMERIC SORT " : PRINT 


Sample answer for EXERCISE 40-1 : 

Change Line 20 to: 

20 FOR P=1 TO G40 


Sample answer for EXERCISE 40-2: 

Graphic codes for the "snail”: 


224 >227 >228 >232 >227 
220 >237 >237 >239 >238 


>224 

>232 
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Sample answer for EXERCISE 44-1 : 

10 INPUT "IS GATE 'X' OPEN" ?A$ 

20 INPUT "IS GATE ' Y ' 0PEN"5B$ 

30 INPUT "IS GATE 'Z' OPEN"?C$ 

40 PRINT 

^0 IF A$="Y" OR B$= " Y " OR C$= " Y" THEN 80 
G0 PRINT "OLD BESS IS SECURE ♦ " 

70 END 

80 PRINT "A GATE IS OPEN," 

90 PRINT "OLD BESS CAN GRAZE," 


ANSWERS 


NUMBER" 5 I 


Sample answer for EXERCISE 48-1 : 

10 REM * TEST GRADER 
C L S 

PRINT "ENTER FIVE 
RESTORE 
N = 0 

FOR 1=1 TO 5 
PRINT "ANSWER 
INPUT A 
READ B 
PRINT A > B 
IF A=B THEN PRINT 
PRINT 
NEXT I 

PRINT N? "RIGHT OUT OF 5 
PRINT N/5*100 ?" PERCENT , " 
PRINT "ANY MORE TESTS TO 
INPUT " ( 1 = Y E S > 2 = NO ) " ?Z 

IF Z=1 THEN CLS s GOTO 40 


20 
30 
40 
50 
80 
70 
80 
30 
100 
110 
120 
130 
140 
150 
180 
170 
180 
190 


" CORRECT" s N = N+1 


IS 


GRADE" 5 


DATA 85 >23 >17 >58 >38 


Sample answer for EXERCISE 48-2: 


100 

110 

120 

130 

140 

150 

180 


CLS 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT 

SELECT ONE OF THE FOLLOWING" 
INVESTMENTS" : PRINT 

1 - CERTIFICATE OF DEPOSIT 

2 - BANK SAVINGS ACCOUNT" 

3 - CREDIT UNION" 

4 - MORTGAGE LOAN" 
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170 PRINT : INPUT "INVESTMENT <1-4):"5F 
180 ON F GOTO 1000 » 2000 t 3000 * 4000 
190 GOTO 100 : REM F NOT BETWEEN 1 AND 4 
1000 REM * CERTIFICATE OF DEPOSIT * 

1010 PRINT "THE C ♦ D ♦ PROGRAM IS NOT YET 
WRITTEN* " 

1020 GOSUB 10000 s GOTO 100 

2000 REM * SAVINGS ACCOUNT PROGRAM * 

2010 CLS ; PRINT s PRINT "THE ROUTINE" 5 
2020 PRINT " CALCULATES SIMPLE INTEREST" 
2030 PRINT "ON DOLLARS HELD IN DEPOSIT" 

2040 PRINT " FOR A SPECIFIED PERIOD USING" 
2050 PRINT "A SPECIFIED 7„ OF INTEREST," 

2060 PRINT 

2070 INPUT "AMOUNT OF DEPOSIT ( DOLLARS ) s "5 P 
2080 INPUT "HELD FOR HOW MANY DAYS:" SD 
2000 INPUT "AT WHAT RATE OF INTEREST : " 5 R 
2100 CLS : PRINT : PRINT 

2110 PRINT "FOR A STARTING PRINCIPAL OF" 
2120 PRINT "$"5P5"AT A RATE OF " ? R * "Z." 

2130 PRINT "FOR" 5D ? "DAYS, THE INTEREST" 
2140 PRINT "AMOUNTS TO $" ?R/100/365*D*P 
2150 END 

3000 REM * CREDIT UNION PROGRAM * 

3010 PRINT "THE C,U, PROGRAM NOT YET 
WRITTEN, " 

3020 GOSUB 10000 s GOTO 100 

4000 REM * MORTGAGE LOAN PROGRAM * 

4010 PRINT "THE M.L, PROGRAM NOT YET 
WRITTEN , " 

4020 GOSUB 10000 : GOTO 100 

10000 FOR 1=1 TO 1000 : NEXT I : RETURN 
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Sample answer for EXERCISE 50-1 : 

10 ON ERROR GOTO 130 
20 CLS 

30 FOR N=1 TO VAL(RIGHT$(TIME$ »2> ) 

40 A = RND ( 1 ) : NEXT N 

50 FOR 1=1 TO 10 

G0 X = I NT ( RND < 1 ) *2 1 ) : F = X-10/X 

70 PRINT I 5 "X=” iX * " F ( X ) = 11 5 F 
80 IF F< 0 THEN PUNT ELSE PRINT 

80 IF X = 20 THEN READ A 

100 NEXT I 

110 INPUT "PRESS ENTER TO CONTINUE" ?Z 
120 GOTO 20 

130 IF ERR = 2 THEN 175 
140 IF ERR = 4 THEN 155 
150 PRINT "ERROR" : END 
155 PRINT 

1B0 PRINT "OUT OF DATA ERROR IN LINE" S ERL 

1S5 PRINT 

170 RESUME NEXT 

175 PRINT 

180 PRINT "SYNTAX ERROR IN LINE" 5ERL 

185 PRINT 

180 RESUME NEXT 
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User Programs 


12-Hour Clock 

1 REM COPYRIGHT <C> 1985 BY COMPUSOFT* 

2 REM ALL RIGHTS RESERVED ♦ 

3 REM <<<<< 12-HOUR CLOCK >>>>> 

10 INPUT "THE HOUR IS" 5 E 

20 F = I NT ( E / 1 0 ) : E = E - (F*10> 

30 INPUT "THE MINUTES ARE " 5 C 
40 D = I NT ( C/ 1 0 ) s C = C - ( D* 1 0 ) 

50 INPUT "THE SECONDS ARE" 5 A 
B0 CLS 

70 B = I NT ( A / 1 0 ) : A = A - <B*10) 

80 FOR N = 1 TO 300 : NEXT N 

90 A = A + 1 

100 IF A >9 THEN 120 

110 GOTO 310 

120 A = 0 

130 B = B + 1 

140 IF B >5 THEN 160 

150 GOTO 310 

1S0 B = 0 

170 C = C + 1 

180 IF 09 THEN 200 

190 GOTO 310 

200 C = 0 

210 D - D + 1 

220 IF D >5 THEN 240 

230 GOTO 310 

240 D = 0 

250 E = E + 1 

280 IF E >9 THEN 280 

270 GOTO 300 

280 E = 0 

290 F = F + 1 

300 IF F >0 AND E >2 THEN A = 0:B = 0:C = 0: 

D = 0 : E= 1 : F = 0 

310 PR I NT0290 tf !E ? " : " !D 5C 5 " : " 5B !A 
320 GOTO 80 


567 
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On A Snowy Evening ... 
by Robert Frost 

Who says computers only make stuffy mathematical calculations and 
are not for folks who appreciate the better things? If this one doesn’t 
grab you, nothing will. 

1 REM COPYRIGHT (C) 1385 BY COMPUSOFT* 

Z REM ALL RIGHTS RESERVED ♦ 

3 REM <<<<< ON A SNOWY EVENING >>>>> 

10 CLS : DEFINT A-Z 

20 PRINT TAB ( 1 1 ) 5" ON A SNOWY EVENING" 

30 PRINT TAB< 13) 5 "BY ROBERT FROST" 5 
40 LINE <30»30)-(209>97) >1 *BF 
50 FOR Z=1 TO 300 

G0 PRESET (RND< 1 ) *179 + 30 »RND< 1 )*G7 + 30) 

70 NEXT Z 

1000 PRINT0289," WHOSE WOODS THESE ARE"? 

1010 PRINT0329 »" I THINK I KNOW ♦ "5 

1011 GOSUB G000 

1100 PRINT0289 t " HIS HOUSE IS IN THE "? 

1110 PRINT0329 * " VILLAGE » THOUGH 5 "? 

1111 GOSUB G000 

1200 PRINT0289 t" HE WILL NOT SEE ME "5 

1210 PRINT0329 t " STOPPING HERE "5 

1211 GOSUB G000 

1300 PRINT0289 #" TO WATCH HIS WOODS "5 

1310 PRINT0329 * " FILL UP WITH SNOW ♦ "5 

1311 GOSUB G000 

1400 PRINT0289 » " MY LITTLE HORSE MUST "5 

1410 PR I NT0329 t " THINK IT QUEER "? 

1411 GOSUB S000 

1500 PRINT0283 ♦" TO STOP WITHOUT A "5 

1510 PRINT0329 FARMHOUSE NEAR "5 

1511 GOSUB G 0 0 0 

1600 PRINT0289 t" BETWEEN THE WOODS AND"? 
1 G 1 0 PRINT0329#" FROZEN LAKE "5 

1611 GOSUB G000 

1700 PRINT0289 t" THE DARKEST EVENING "5 

1710 PRINT0329 *" OF THE YEAR* "5 

1711 GOSUB 6000 

1800 PRINT02B3 »" HE GIVES HIS HARNESS "? 

1810 PRINT0329 BELL A SHAKE "? 
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18 1 i GOSUB 8000 

1000 PRINT@289 t" TO ASK IF THERE IS "5 
1010 PRINT0329 t " SOME MISTAKE* "5 

1911 GOSUB B000 

2000 PRINT0289 * " THE ONLY OTHER "5 

2010 PRINT0329 t" SOUND 7 S THE SWEEP 11 5 

2011 GOSUB B000 

2100 PRINT0289 t" OF EASY WIND AND "5 

2110 PRINT0329 » " DOWNY FLAKE* "5 

2111 GOSUB S000 

2200 PRINT0280 THE WOODS ARE LOUELY * 11 5 

2210 PRINT0329 t" DARK t AND DEEP t M » 

2211 GOSUB S000 

2300 PRINT0289 »" BUT I HAUE PROMISES "5 

2310 PRINT0329 > " TO KEEP » "5 

2311 GOSUB S000 

2400 PRINT0289 * " AND MILES TO GO "5 

2410 PRINT0329 *" BEFORE I SLEEP * "5 

2411 GOSUB S000 

2500 PRINT0289 » " AND MILES TO GO " ? 

2510 PRINT0329 » " BEFORE I SLEEP* "j 

2511 GOSUB S000 

3000 X = RND ( 1 ) * 1 80 + 30 

3010 Y = RND ( 1 ) *68+30 

3020 PRESET < X * Y > : PRESET (X+l #Y-1 > 

3030 PRESET (X+l »Y> s PRESET (X tY-1 ) 

3040 GOTO 3000 
6000 FOR N = 1 TO B0 
S010 X = RND ( 1 ) * 1 80 + 30 
S020 Y = RND ( 1 ) *68+30 

B030 IF ( Y >55 AND Y<72) AND <X>53 AND 
XC18S) THEN S010 

S040 PRESET (X tY) : PRESET (X+l »Y-1 ) 

B050 NEXT N 
S0S0 RETURN 
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Automatic Ticket Number Drawer 

Like to make a bis splash at the next Rotary Club, Country Fair, or other 
ticket drawins siveaway? This prosram uses the random number 
generator to pick the lucky numberCs) and eliminate charges of stuffing 
the ticket box, besides giving the whole affair some pizzazz. If your 
own number comes up and you are charged with rigging the computer, 
you’re on your own. 

1 REM COPYRIGHT (C) 1985 BY COMPUSOFT* 

2 REM ALL RIGHTS RESERVED* 

3 REM <<<<< TICKET DRAWER >>>>> 

1 0 CLS 

20 REM * PICKS WINNERS BY DRAWING TICKET 
30 REM NUMBER/NO MORE THAN 327S7 TICKETS 
40 REM CAN BE SOLD* BUT NUMBERS CAN 
50 REM RANGE TO 999999 AND BEYOND * 

60 INPUT "LOWEST TICKET NUMBER IS" 5B 
70 INPUT "HIGHEST TICKET NUMBER IS" iH 
80 E = H-B+l 
90 IF E < 3 2 7 6 8 THEN 120 

100 PRINT "TOO MANY TICKETS WERE SOLD!" 
110 END 

120 INPUT "HOW MANY WINNERS DO YOU WANT" 
130 CLS 

140 IF W >E THEN 260 

150 PRINT TAB < 1 0 ) 5 " * AND THE WINNING *" 
160 IF W>1 THEN 190 

170 PRINT T AB ( 1 0 ) $ " * TICKET IS *" 

180 GOTO 200 

190 PRINT TAB ( 10) 5 " * TICKETS ARE *" 

200 PRINT 

210 FOR N= 1 TO W 

220 GOSUB 300 

230 PRINT T A B ( 1 2 ) 5 " > > >" 5Z+B-1 

240 NEXT N 
250 END 

260 CLS : PRINT : PRINT 
270 PRINT "YOU HAVE MORE WINNERS THAN 
ENTRIES" 

280 PRINT TAB ( 1 7 ) 5 " DUMMY ! " 

290 END 

300 S = VAL(RIGHT$(TIME$*2) ) 
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310 FOR R = 1 TO S 
320 Z = INI ( E*RND ( 1 ) + 1 ) 
330 NEXT R 
340 RETURN 


Checksum For Business 


For those responsible for inventory numbers or check clearing and 
balancing in business, a checksum is a most useful testing "code". This 
simple program calculates error-free checksums almost instantly. It is 
designed for 6-digit numbers and so can be used for stock number 
verification or other applications. 


1 REM COPYRIGHT (C> 1985 BY COMPUSOFT 

2 REM ALL RIGHTS RESERVED* 

3 REM <<<<< CHECKSUM FOR BUSINESS >>> 
10 PRINT 

20 INPUT "THE FIRST DIGIT IS " 5A 
30 INPUT "THE SECOND DIGIT IS " 5B 
40 INPUT "THE THIRD DIGIT IS "5C 
50 INPUT "THE FOURTH DIGIT IS M 5 D 
S0 INPUT "THE FIFTH DIGIT IS "IE 
70 INPUT "THE SIXTH DIGIT IS “ 5 F 
80 PRINT 

90 PRINT "THE NUMBER IS " 5 A 5 B 5 C 5 D ! E 5 F 
100 S = A+2#B+C+2*D+E+2#F 
110 T = I NT < S/ 1 0 ) 

120 U = S - T * 10 

130 S = T + U 

140 IF S >9 THEN 110 

150 PRINT " THE CHECKDIGIT IS " 5 S 
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Alexander’s Ragtime Band 

This utilizes the SOUND statement to reproduce the old Dixieland 
favorite. 


1 REM 

2 REM 

3 REM 
10 ON 


EM COPYRIGHT (C) 1985 BY COMPUSOFT* 
EM ALL RIGHTS RESERVED ♦ 

EM <<<<< ALEXANDER ' S RAGTIME >>>>> 
ON ERROR GOTO 80 
CLS : DEFINT A 

REM CLOCK TICKS 50 TIMES PER SECOND 

READ A > L 

TL = L*50 

SOUND A>TL 

GOTO 40 

IF ERR = 4 THEN END 
RESUME 100 
RESTORE 
GOSUB 130 
GOTO 40 

IF ERR = 4 THEN END 
FOR X = 1 TO 22 
READ A > L 

IF A = 1 THEN A = 1*1*3348 
SOUND A* ♦ 75 >L*50 
NEXT X 
READ B $ > C 
RETURN 
END 

REM DATA IS NOTE (IN HZ CONCERT 
REM PITCH) > LENGTH (IS SECONDS) 
DATA 263S * * 125 >2488 > *375 >2638 > * 125 


COMPUSOFT * 


40 
50 
60 
70 
80 
9 0 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 

499 

500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
810 
620 
630 


NOTE (IN HZ 
LENGTH (IS 


CONCERT 

SECONDS) 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


2636 > * 125 >2488 > *375 >2636 > * 125 
2488 > 1 >1 > *375 >2636 > * 125 >2488 

♦ 375 >2092 > * 125 >2488 >1 >1 > *375 

^bdb f ♦ 1 jLZ> > Z*4oa f ♦ J /Z> t tLW a * i t ♦ 1 £.0 

2636 > *375 >2793 > * 125 >3134 > *375 
3728 > . 125 >2636 > * 25 >2793 > *25 >1 

♦ 25 >3134 >1 *25 >1 > *375 
ERROR > 2 

2488 > ♦ 125 >2348 > .375 >2216 >♦ 125 
2092 > *25 >1 > .25 >1864 > .375 >2488 

♦ 125 >2092 > *25 >1864 > *5 >2488 > *25 
2092 > *325 >1 > *05 >2092 > ♦ 125 >1864 
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S40 

650 

6B0 

B70 

B80 

S90 

700 

710 

720 

730 

740 

750 

7B0 

770 

780 

780 

800 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


♦ 375 * 
3134 * 
3134 * 
4184* 
2488 * 

♦ 125 * 

♦ 45 *2 
1**12 
2488 * 
1+5*1 
+ 375 * 
2S3G * 
2488 * 
+ 375 * 

♦ 1 2 5 * 
+ 25 *2 
+ 05 *2 


2488 * + 125 *2002 * + 5 *1 * + 5 
.5 *2488 * + 375 *4184 *♦ 125 
+ 375 » 2B3S * + 125 *3134 * + 375 

♦ 125 *3134 * + 375 *2G3S *♦ 125 

♦ 25 *2032 * + 5 *1 *1 +25 *2703 

1 * + 05 *2793 * ♦ 45 * 1 * + 05 *2793 
488 * + 5 *221 B * + 25 *2793 * + 375 
5 *2793 * + 25 *2488 * + 325 * 1 * + 05 
+ 125 *2216 * + 375 *1 * ♦ 125 *2092 
*1 +875 * 2G3G * + 125 *2488 
2B3B * + 125 *2488 *1*1 * + 375 
+ 125 *2488 * + 375 *2092 * + 125 
1 *1 * + 375 * 2B3B * + 125 *2488 
2092 * * 125 *2G3S * + 375 *2793 
3134 * + 375 *3728 * + 125 *2036 
793 * + 25 *1 * + 25 *3134 * + 75 * 1 
092 * +5 *1 * + 05 *1567 *1 


Craps 

The same is as old as history. A testimonial to the intellisence and 
insenuity of our ancient ancestors. An excellent way to demonstrate 
the runnins of twin Random Number Generators. 

You don’t need to know how to play the same — the Computer will 
quickly teach you. ..There's one born every minute... 

1 REN * COPYRIGHT (C) 1985 

2 REM BY COMPUSOFT + ALL RIGHTS RESERVED* 

3 REM <<<<< CRAPS >>>>> 

5 CLS 

20 INPUT "PRESS < ENTER > TO CONTINUE" HA 
30 CLS 

40 GOSUB 240 
50 P » N 

S0 PRINT "YOU ROLLED " 5P ? 

70 ON P GOTO 90*150*150*100*100*100*120*100* 
100 *100 *120 *120 *150 
90 REM USED IF P=1 WHICH IT CAN'T 
100 PRINT "YOUR POINT IS"?N 
110 GOTO 180 
120 PRINT "YOU WIN ! ! ! " 


574 Appendix H 


130 

PRINT 



140 

GOTO 20 



150 

PRINT " 

YOU 

LOSE ! " 

1G0 

PRINT 



170 

GOTO 20 



180 

GOSUB 2 

40 


190 

M = N 



200 

PRINT " 

YOU 

ROLLED 

210 

IF P = M 

THEN 

120 

220 

IF M = 7 

THEN 

150 

230 

GOTO 180 


240 

A= I NT ( RND ( 1 

) *G+ 1 ) 

250 

B= I NT ( RND ( 1 

) * 6 + 1 ) 

2S0 

N = A + B 



270 

RETURN 




Dow Jones Access 


This prosram automatically dials the Dow Jones service, enters your 
secret password then asks for information on three companies. The 
information received from Dow Jones is then stored in your Tandy 
200 in a file called QUOTE.DO. Before running this program, change 
Line 30 to your local Dow Jones access phone number, and place 
your secret password in the auto-logon sequence. 

1 REM <<<<< DON JONES ACCESS >>>>> 

10 MAXF I LES = 3 1 * * * * * 7 ALLONS ACCESS TO 3 FILES 

20 ST$ = CHR$ ( 19) 7 CHR$ (IS) = CTRL S 

30 PH$=" 5551234 < 

?pA?PD 0N1 5 ;?NDJNS A M?Ppasswo rd A M>" 

40 M = UARPTR ( PH$ ) ' STORE PH$ INDEX 

50 AD = PEEK ( M + 1 )+( PEEK ( M + 2 ) *25G > 

55 REM AD HOLDS LOCATION IN MEM FOR PH$ 
S0 CALL 25 1 G9 ' PUT MODEM ON PHONE LINE 
70 CALL 25131 >0 > AD ' DIAL PHONE & LOG ON 
80 CLS 

00 OPEN "MDM:7I 1DNN" FOR INPUT AS 1 
100 OPEN H MDM:7I1DNN“ FOR OUTPUT AS 2 
110 OPEN "QU0TE*D0" FOR APPEND AS 3 
120 Z$ = I NPUT$ (1*1) 'HOLD 1ST CHARACTER 
130 IF Z$ <> ST$ THEN 120 ' IS Z$ CTRL S? 
140 PRINT #3 »DATE$ 5 " “ 5 T I ME$ 
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150 PRINT "STARTING QUOTES REQUEST" 

1S0 READ N ' GET NUMBER OF QUOTES 

170 FOR I = 1 TO N 

180 READ Q$ 7 READ QUOTE NAME 

190 PRINT #2 *Q$ 7 SEND NAME ODER PHONE 

200 GOSUB 4000 7 INPUT DATA FROM PHONE 

210 PRINT041 »I 5 " REQUEST COMPLETE" 

220 NEXT I 

230 PRINT "SIGNING OFF" 

240 ST $ = CHR$ < 7 ) 7 CHR$<7> = CTRL G 

250 PRINT #2 > "DISC" 7 SEND "DISC" TO D.J. 
260 GOSUB 4000 7 INPUT DATA FROM PHONE 
270 CLOSE 7 CLOSE QUOTE FILE & PHONE PORT 
280 CALL 25169 7 DISC MODEM FROM PHONE 
290 END 

4000 REM SUBROUTINE TO READ CHARACTERS FROM 
PHONE AND STORE IN QUOTE FILE 
4010 Z$ = INPUT$(lrl) 7 STORE FIRST CHAR 
4020 IF Z$ = ST$ THEN RETURN 
4030 PRINT «3»Z$5 7 STORE Z$ IN QUOTE. DO 

4040 GOTO 4010 

5000 DATA 3s 7 3 QUOTE NAMES TO READ 
5010 DATA ",TAN"» "CIMN"» " BLHZ " 
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Disk Video Interface 


Doesn’t Everyone Have Disk? 

You are fortunate to have the disk system. This is really computing in style! 

Non-disk Tandy 200 readers must wrestle with slow and less reliable cassette 
tapes to store their programs. Disk/ Video Interface users have the advantage of 
saving and loading programs at a much higher speed on the disk drive unit. The 
Interface also makes it possible to use the Tandy 200 with an external video 
monitor or standard TV set. 


The Connection 

Hook up the Disk/ Video Interface unit per the manual which accompanies the 
system. 

Press the POWER switch on the Tandy 200. If the Main Menu does not appear 
on the display, turn the Computer OFF and check the connections. 

With the Main Menu displayed on the Computer, turn the Disk/Video Interface 
AC power switch ON. The fan motor inside the Interface unit should start running 
and the red light on the disk drive assembly should glow. Place the SYSTEM 
diskette in the drive unit with the label up. Be sure it is all the way inside the 
drive unit, then shut the door by placing the drive handle down. 


When the light on the disk unit goes out, press the RESET button on the back 
of the Computer, or turn the Computer OFF then ON. The disk drive will whir, 
and the light will go out on the drive unit. Notice that the Main Menu blinked 
while the disk was spinning. This indicates that the Computer loaded the Disk 
BASIC program from the diskette. Check to see that Disk BASIC is now resident 
in the Computer’s memory by placing the cursor over BASIC and pressing 
The display should read: 


ENTER 


TANDY 200 Software 
Copt. 1984 Microsoft 
12153 Bytes free 
CDISK/UIDE0 code installed] 


576 
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[DISK/ 1 ,* IDEO code installed] tells us that we are using the Disk 
BASIC language “interpreter” inside the Computer which now knows how to 
SAVE and LOAD programs to the disk drive. 


Why Disk BASIC? 

Disk BASIC has all the regular Tandy 200 BASIC features plus a few special 
disk commands. We will be concerned in this Appendix only with SAVE and 
LOAD and will learn about them in due course. 

Just because you have a disk system doesn’t mean you have to start right off 
using Disk BASIC. If, at this point, you would really rather learn the straight 
old BASIC like our non-disk readers, you can shut it all down, disconnect the 
Disk/Video Interface unit, and chop the system down to minimum size. 


Turning the Disk System OFF 

Always remove the diskette before turning the system OFF. Punishment for 
failure to do so might be a “zapped” disk, one with some of its information 
accidentally erased. 

Then, turn the Disk/ Video Interface unit power switch OFF. Turn the Computer 
OFF and then back ON again. Enter BASIC and notice that the DISK/VIDEO 
code is still present. To remove the code and bring BASIC back to its non-disk 
form, type: 


POKE 61110 1 20 1 
BUZZ *201 
CALL 39703 


:^> Benter 

•SjS’F'benteH 


CLEAR 25G » MAXRAM 


ENTER 


Once this command is entered, the Computer can no longer SAVE and LOAD 
programs on disk. 


Recalling Disk BASIC 

To recall disk BASIC, type this instruction into the Computer: 


POKE 65201 *0 


ENTER 


and press the RESET button on the back of the Computer. If this instruction is 
not given to the Tandy 200, it cannot load Disk BASIC from the Interface unit. 
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Making a BACKUP Diskette 

Before proceeding, it’s a good idea to make a “working copy of the SYSTEM 
Diskette . To make a backup copy , we must first record some operating information 
on the blank diskette by using the format program. 

FORMATting a Diskette 

With the Disk/Video Interface unit turned ON and the original SYSTEM diskette 
in place, type this BASIC command: 

RUN "0:FMT200" 

The Computer loads and RUNs a special program called FMT 200 which guides 
us through the formatting process. The display reads: 

This utility formats diskettes* 

- All data will be lost - 

Which drive will be used (0 or 1)? [] 

Answer the question by typing 0. 

The Computer tells us to put the diskette to be formatted in Drive 0. In the 
Computer world, the first disk drive is commonly referred to as Drive 0, and on 
two-drive systems the second drive is called Drive 1 . Remove the System diskette, 
and insert a new diskette (no write protect tab) . Close the door , and press S2HM53- 

When the formatting process is complete, the Computer reports: 

FORMAT COMPLETE? 

number of flawed tracks: 0 

Making a BACKUP 

Be sure the SYSTEM diskette is in the disk drive and type: 

RUN "0 : BAK200 * SNG" 

Users with a two-drive system can type: 

RUN "0:BAK200" l=UH=t:l 
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The BAK200 program offers the choice of backing up ALL files or only SYSTEM 
files. All files that were included on the original diskette should be on the backup 
copy so select A for ALL. 

Follow the instructions, swapping the original diskette and the formatted diskette 
until the backup is complete. 

To verify that the programs are saved on the new diskette, type: 

LFILES 

The Computer reads the disk and lists the programs on the display including the 
FMT200 and BAK200 programs. 

SAVEing and LOADing on Disk 

A big advantage of DISK BASIC over ordinary Tandy 200 BASIC is that programs 
can be SAVEd on or LOADed from disk more quickly and reliably than with 
cassette. Type: 

NEW 

to clear out the BACKUP program, and type in this short BASIC program: 

10 REM * DISK BASIC PROGRAM * 

20 PRINT "HELLO THERE » DISK USER" 

39 END 

Now type: 

SAME " 0 : PROGRM . BAS " mUM 

Well, something seemed to happen. Our little program is now SAVEd on the 
floppy disk under the name PROGRM. BAS. Check to see that it is added to the 
list of files on the diskette with the LFILES command. We can also SAVE the 
program in the Computer’s main menu by simply leaving off the drive number. 


SAVE "PROGRM. BAS 
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Press FI . Notice that the program is also being stored in the Computer’s memory, 
but its name has been shortened to PROGRM . BA. The Main Menu can store 
programs with names no longer than 6 characters plus a 2 letter extension. Pro- 
grams saved on disk, however, can have 6 characters followed by a 3 character 
extension. 

Now let’s recall the program from the disk. First type: 


ENTER! 


to clear the program out of memory. Check the situation by pressing F5 to LIST 
the program. No trace left. Good thing we SAVEd it on disk. To copy it back 
into memory, type: 

LOAD "0 : PROGRM ♦ BAS" 

Now check to see if it’s really LOADed. LIST it by pressing F5. It worked! 


Back to the Book 

With the Disk/ Video Interface unit ON and the 

CDISK/UIDEO code installed] 

let’s mosey on back to Chapter 1, and meet the rest of the gang learning Tandy 
200 BASIC. 


Index 
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ABS 308 
AC Adapter 2,19 
Acoustic Couplers 83 
Addition 61,138 
ADRS File (ADDRSS) 54 
ADDRSS 54 

Alarm 49 
AND 460 

Animation 335,429,435 
ANSwer 83 
Apostrophe 252,267 
APPEND 483 
ARCCOS 318 

ARCSIN 318 
Array 392 

Addresses 413 
Elements 413 
loading 394,430 
Multi-Dimensional 413 
Names 393,402 
Numeric 393 
Pointer (Index) 396 
String 401 
String Matrices 417 
Vector Arrays 413 
ASC 260 

ASCII 257,532 
ASCII format 472 
Assembly Language Call 488 
ATN 318 

Auto-Log Codes 97 
Auto Log-On 96 
Automatic Zoning 145 

B 

Backup 

Copy (F5 Key in TEXT) 30 
disks 578 

files on to cassette (TEXT) 3 
Bank 36 
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BASIC 112,163 

Batteries 2,17 

BEEP 421,442 

Blank (F2 Key in MSPLAN) 62 

Block 30 

Break 181,194 

BREAK/PAUSE Key 16,27,34,77,117,165,181 
Buffer 

INKEY$ 357 
Keyboard 357 
PASTE 31,38,40 
Byte 6,170 

C 

Calculator Mode 166 
Calendar 6 
CALL 488 

Call Mode (F2 in TELCOM) 77 
Calling a subroutine 226 

3322 H232 K e y n,n3 

Cassette 

connection 32 
interface 175 
MERGEing 475 
operation 32,175 
storage 32 
CDBL 302 
CHR$(N) 258 
CINT 302 
CLEAR 271,416,497 
Clear display 34,188 
CLOAD 177 
CLOADM 491 
Clock 4 
CLOSE 481 
CLS 188 
322! Key 12 

Colon 80,246 
COM 97 

OFF, ON, STOP 499 
Comma 144,254,369,386 
Command 116 
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Command Keys 16 
Common Log 3 1 1 


Communication Parameters 102,544 
Comparing strings 263 
Concatenate ( + ) 273 


Conditional Branching Statements 158 
Conditional Tests (IF-THEN) 158 
CONT 194 


Control Codes 258 
Converting 

degrees/radians 315 
logs 311 
variables 277,315 
Copy 

F5 Key in TEXT 30 
F3 Key in MSPLAN 65 
COS 315,353 
CSAVE 176 
CSAVEM 491 
CSNG 302 
CSRLIN 348 


[CTRL] 


with a 86,91,165,181 

with Left Arrow 127 

with E2 97 

with Up/Down Arrows 34,38 
see also: TEXT Control Codes 
Cursor 8,24,59,127 

♦ Down Arrow Key 8,34,38,59,130,436 

4 Left Arrow Key 8,59,127,436 

4 Right Arrow Key 8,59,127,436 

♦ Up Arrow Key 8,34,38,59,130,436 

Cursor Control Codes 429 

Cut (F6 Key in TEXT) 38 


D 


DATA 239 
Data compression 419 
DATES 6 
DAY$ 6 

Debugging 216,222,510 
Decrement 185 
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DEFDBL 300 

DEFINT 301 

DEFSNG 297 

DEFSTR 270 

l»1dW:K<cra Kev 11,113,127 

Deleting 25 

in BASIC 127 
in TEXT 25 
DIM 397,401 
Directory 

Files (FI Key) 173 
LFILES 579 
Disk BASIC 577 
Disk/Video Interface 576 
DISP Control 4 
Division 62,138 
DO-loop 184 
DouBLe Precision 296 
Down loading (F2 Key) 90,105 
Dumb Terminal 69 
Dumping 175 
Dummy value 170,271 
Duplex (Half/Full) 103 

E 

E-notation 147,297 
Echo 91 
EDIT 127 

EDIT . 130 

EDIT Mode (F4 Key in SCHEDL) 43 

ELSE 256 

END 123,125,207 

Endless loop 181 

IdMiaa Kev 112,115,253 

EOF 484 

EQV 467 

Erasing 

program lines 124 

resident program 140 
ERL 526 
ERR 526 
ERROR 522 
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Error Codes/Messages 119,522,546 
BS Error 397 

FC Error 178 

NF Error 207 

OD Error 242,267 

OS Error 272 

Redo from start 254 
SN Error 119 

Key 10 
EXP(N) 312 

Exponential Notation 147,297 
Extension 16,173 

F 

File 9 

File Name 175 

Suffix (Extension) 16,173 
Files (FI Key) 173 
Files 

APPEND 483 
CLOSE 481 
FOR 479 
INPUT# 482 
INPUTS 486 
LINE INPUT 486 
MAXFILES 479 
OPEN 479 
OUTPUT 479 
PRINT# 482 

Find (FI Key) 29,43 
FIX(N) 306 

Flags (Debugging) 216,519 
Flowcharting 504 

FOR (Files) 479 
FOR-NEXT 180,204 

Format Commands (F4 Key in MSPLAN) 63 

Format disks 578 

FRE(0) 170,271,511 

Function Keys 15,43,132,387,492 

Functions 

INTeger 209 

Intrinsic 306 



Inverse Trigonometric 317 
String 282 
Trigonometric 314 
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G 

Global declaration 297 
Global override 300 
GOSUB 226,498 

GOTO 158,159,524 
Graphic Codes 426 
Graphics 13,322,424,464 
Graphing with PRINT @ 351 

EEHSKey 13,166 

H 

Hard copy 27,32 

Hex-to-Decimal Conversion 548 
HIMEM 497 

I 

IF-THEN 156 

Image Line 364,372,377 

Immediate Mode 166 
IMP 468 
Increment 185 

Indenting program lines 188,203 
Initializing 

arrays 414,416 
values 188 

variables 168 

INKEY$ 356 

Buffer 357 

Graphics 436 

INP 491 
INPUT 161,253 

Real Time Input 435 
INPUT# 482 
INPUTS 486 

Inserting (TEXT) 24 
INSTR 288 
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INT(X) 209 

Integer Division 217 

INTeger Precision 302 
Interpreter 162 

Intrinsic Math Functions 306 
Inverse Trig Functions 317 

IPL 500 

K 

KEY 135 
LIST 133 

OFF,ON,STOP 492,493 
Keyboard 8 

Buffer 357 

KILL 178 

F5 Key in Menu 36,179 

L 

LABEL Key 15 

LCOPY 388 

LEFTS 282 

LEN 269 
LET (optional) 142 

LFILES 579 

LINE 341 

Line Editor 127 

LINE INPUT 260,486 

Line(s) 

blank 121 

erasing 124 
Flag 216,519 
Image 364,372,377 
indenting 188,203 

length 1 99 

Measuring 376 
numbering 118,121 
per inch 390 

replacing 115 

Line Printer 385 
LIST 122 
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LIST . 193 

LIST ### 193 

LLIST 385 

Load (F2 Key) 173,176 

Loading from cassette 33 

LOADM 491 

LOG 309 

Logical Operators 460 

LOW BATTERY Light 17 

LPOS 496 

LPRINT 384 

LPRINT TAB 386 

LPRINT USING 387 


M 

Main Menu (F8 Key) 6,132 
Math Formula (MSPLAN) 61 
Math Operators 138 
Matrix 396 
MAXFILES 479 
MAXRAM 497 
MDM 476,499 
Measuring Line 376 
Measuring strings 269 
Memory 6,170 
Memory Address 452 
Memory Bank 36 

Memory Map 453 

Memory Power Switch 3 
Menu Kill (F5 Key) 36,179 
MERGE 472 
MID$ 282 
Modem 69,472,476 
Modular Programming 504 
Module 504 
MOTOR OFF, ON 500 
MSPLAN 58 
Multi-Dimensional Array 413 
Multiple Statement Line 246 
Multiplication 61,138 
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N 

Natural Log 311 
Negation 140 
Nested FOR-NEXT Loop 204 
NEW 115,140,271 
NEXT 180,204 
optional 254 
NOT 466 

NOTE File (SCHEDL) 42 
Notepad 52 
Null Modem Adapter 102 
Null String 359 

lEWfll Kev 11,166 

Numeric Array 393 
Numeric Keypad 11 
Numeric Variable 141,248 

O 

ON ERROR GOTO 524 
ON GOSUB 227 

ON device GOSUB 499 
ON TIMES GOSUB 498 
ON GOTO 222 
ON KEY 492 
OPEN 479 
Operators 

Logical 460 
Math 138 
Relational 155 
Optional NEXT 254 

Optional THEN 159 

OR 463 
ORIGinate 83 
Order of Operations 150,468 
OUT 494 
OUTPUT 479 

P 


Parentheses 150 


Index 591 


PASTF 

Buffer 31,38,40 

Key 16,31 
PAUSE 190 

see also: BREAK/PAUSE Key 
PEEK 452 
Pixel 322 
POKE 455 
POS(N) 348 
Power (Electrical) 172 
POWER (Run time) 501 
Precision 296 
PRESET 322 
PRINT 

in BASIC 113,143,168,252 
in TEXT 27 
Key 16 

PRINT @ 343,345 

Print Codes 388 

Print Format Options (TEXT) 28 

PRINT # 482 

PRINT TAB 198 

PRINT USING 363,374 

Print width (TEXT) 28 

Print Zones 144,386 

Printers 385,472 


Printing 

blank lines 121 
numbers 145 

Numeric V ariables 20 1 
spaces in String Variables 
Program 

listing 122 
Resident 140 

Protective END 191,207 
PSET 322 

Pseudo-RaNDom Number 2 


Q 

Question Mark 97,168,252 
Quotation Marks 113,143,173,253,266 
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R 


Radians 315 
RAM 452,471 
RaNDom Numbers 230 
READ 239 
Strings 265 
ReDIMensioning 397 
Relational Operators 155 
REM 122,252 
Replacing program lines 1 15 
Reserved Words 249,543 
Reset Button 8,34,117 
Resident Program 140 
RESTORE 243 
RESUME 525 
RETURN 226 
RIGHTS 282 
RND(X) 230 
ROM 452,455 
Rounding 209,303,366 
Routines 228 

RS-232C Port 101,105,472,476 
RUN 115,168 
RUN ### 193 

Run time 

see: POWER 
RUNM 491 


S 

Save (F3 Key) 173,175 

Save to cassette (F3 Key) 33,175,475 

SAVE to disk 579 

SAVEM 489 

SCHEDL Program 42 

Scientific Notation 147 297 

SCREEN 497 

Scroll Display 188 

Search (TEXT) 29 

see also: Find (FI Key) 
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Seed Number 236 
Sel(ect) (F7 Key) 30,38 

Semicolon 145,199 

trailing 162,202,386 
SGN(X) 225 
MSliai Key 

with BREAK/PAUSE Key 
with QsEH Key 12 

with Cursor Keys 38 
with l»]^l Key 127 

with fflslllil Key 1 3 

with PRINT Key 27 
SIN 314,351 
SiNGle Precision 296 
Smart Terminal 69 


Soft copy 32 

Soft Keys 15,132,387,492 

Sorting 405 

SOUND 443 

OFF/ON 449 
SPACES 293 

Special Graphics Characters 13 
SQR(N) 307 
Statement 116 

Status (F3 Key in TELCOM) 82 
STEP 183 

STOP 194 


String(s) 

Array 401 

comparisons 263 
Constant 265 
defined 250 

INPUTting 263 
measuring 269 
packed 428 

READing 265 
Variable 249,265 
STRINGS 291 

STRS 280 
Subroutine 226 
Subtraction 62,138 
Suffixes (Extensions) 16,173 


27,34,77,1 17,165,181 
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T 

TAB 198 

. SEE Key 63,65 
TAN 317,353 

TELCOM Program 68,77,84 
TEXT Control Code 540 
TEXT Program 9,23 
THEN 156 

optional 159 

TIMES 6 

OFF, ON 498 

Timer Loop 191 
TO 180 

Top-down display 188 
Trailing semicolon 162,202,386 
Transfer Commands (F7 Key in MSPLAN) 59 
Travel Kit 72 
Trigonometric Functions 314 
Graphing 351 

Troubleshooting 168,216,522 
Type Declaration Characters 298,301,302 

U 

Unconditional branching 158 
Uploading (F3 Key) 90,94,104 

V 

VAL 277 

Variable 

converting 277,280 

initializing 168 
Names 141,248 
Numeric 141 
String 249 
VARPTR 494 
Video Display Worksheet 324 



w 


Word Processing 22,29 

Cassette Storage 32 

Closing a file 25 

Copy (F5 Key) 30 

Cursor speed 24 

Cut (F6 Key) 38 
Deleting 25 
Find (FI Key) 29 

Inserting 24 
Paragraph markers 24 

PASTE Key 16,30 

Printing copies 27 

Safety backups 30 

Sel(ect) (F7 Key) 38 


X 


XOR 468 


+ 

61,138,371 

— 

62,138,140,371 

* 

61,138,173,367 

/ 

62,138 

A 

62,307,379 

*/ 

217,374 

> 

155 

< 

155 

— 

61,140,155 

> = 

156 

< = 

156 

<> 

155 

% 

62,302,365 

# 

298,363 

i 

97,301,377 

$ 

249,366 

. 

130,193,364 



Update Information For 

THE TANDY 200 
PORTABLE COMPUTER 


We can sit here and ponder and speculate and wonder all day long, but we’ll never really know how 
we can improve this book in future editions unless you tell us. Please help us help you by giving 
us your suggestions for improvements. Honest, we really do read and learn from them! 


What do you like about the book? 




What don’t you like? 




Is the book complete? (If not, what should be added?) 




Did you find any mistakes? (If so, where?) 






What other books, manuals or computer aids could be developed to help you? 
Anything else? 







If you would like to receive the latest update memorandum (when available) and information regardinq 
new releases, complete the following: 

Name: 

Address: 

City/State/Zip: 


Mail to: 

CompuSoft Publishing 
535 Broadway, Dept. 200a 
El Cajon, CA 92021 


A Complete Step-by-Step Learner's Manual Including: 

,4/V/ord Processing • Telecommunications • Schedule Keeping • Address Directory 
41 Spreadsheet • A Complete Tutorial Course In BASIC And More 

THE TANDY 

PORTABLE COMPUTER 


It’s now possible to carry your own sophisticated computer anywhere -- onto a plane, to a press conference, 
into the classroom or to a business meeting. "Briefcase Portable” computers have unchained users from 
their offices. 

The Tandy 200 is versatile, useful and innovative. The CompuSoft Publishing staff has proven the value of 
the 200 and its predecessor, the Model 100, by traveling with them to nearly every continent in the world. 

But any computer is only valuable if you can make it so. 

Tandy Corporation sought the cooperation of David Lien to supply understandable instructions to accompany 
the 200. The result of many months of work is this most thorough, most accurate computer manual. Everything 
is taught here -- how to use the 200’s telecommunications, word processing, scheduling and data management 
features, its new spreadsheet, as well as a complete course in BASIC language programming, a subject with 
which Dr. Lien’s name is synonymous. 

If you know Lien’s style, you know what you’re getting; his clear sense of direction, easy prose and light 
humor have taught millions of computer users just how easy learning to use a computer can be -- if it’s taught 
correctly. 

If you’ve not yet learned from one of his books and still think technical subjects have to be complicated, read 
this one. You will be surprised at how quickly and easily you’ll learn to use your new Tandy 200. 


200 


ABOUT THE AUTHOR 

David Lien’s association with Tandy began a decade 
ago when he wrote the authorized learner's manual 
for the original Model I computer. In addition to 
many books on other subjects, he has written man- 
uals for eight Tandy computers with another one 
always in the works. 

Dr. Lien, one of the world’s most widely acclaimed 
technical authors, developed his highly successful 
style over many years of teaching electronics, 
mathematics, computer science and programming. 
He has well over a million book sales to his credit, 
including The BASIC Handbook, Learning TRS-80 
Model 4/4P BASIC, Learning BASIC for the Tandy 
1000/2000 and many others. 
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